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= Replace(c.ChartTitle.Text, “OldStuff”, “NewStuff”)

Next ‘j

Next ‘i

End Sub