I have approx 60 sheet tab each with a chart for each branch in the company. Is it possible to name the charts to equal the sheet tab? There is also a cell that contains the branch number in A33 on each sheet. I could use that reference as well.
I have beeen playing around with this macro:
It requires that there is only one chart per sheet and each sheet has a chart.
Please try it on a document copy.
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
N = ActiveSheet.ChartObjects.Count
ChrtName = ActiveSheet.ChartObjects(N).Name
ActiveSheet.ChartObjects(ChrtName).Name = ws.Name
I ran the code and it renamed the charts as needed then on the sheet without a chart it crashed..... as expected. I then just fixed a couple of chart names...... ALL IS WELL.....
THANKS ---- problem solved.