Sub changeChartTitles() Dim c As Chart ws_count = ThisWorkbook.Worksheets.Count For i = 1 To ws_count Set ws = ThisWorkbook.worksheets(i) For j = 1 to ws.ChartObjects(j).Chart Set c= ws.ChartObjects(j).Chart c.ChartTitle.Text=...

There is probably a better way to do this..if you know of one please tell me. This way looks pretty clunky to me: %GLOBAL BP_DESC_VAR BP; /* MAKE LIST...