Thanks Andy
Thanks for the sites
I used this code below for another workbook I have. I changed the sheet name from Data to Main. Also I am using CHART instead of Team in the userform.Now this works fine the code in the new workbook but would you recommend I change the Private Function code or any of the Dim in the code as these were originally referring to Team but has since been changed to CHART.I also changed the code to .ChartTitle.Text = "CHART " & Chr(lng + 65) so as I have a letter instead of a number.
The code below though does work fine in the new workbook
Bookmarks