I am trying to write some code to make all 24 charts (2 per page and 12 pages) in a workbook have the title of the workbook, and I am obviously doing something wrong. Any ideas are greatly appreciated.
Here is the code.
Sub Cyclecharts() Dim i As Integer Dim ActChart As String On Error Resume Next For i = 1 To ActiveSheet.ChartObjects.Count Range("A1").Select ActChart = ActiveSheet.ChartObjects(i).Name ActiveSheet.ChartObjects(i).Activate ActiveChart.ChartTitle.Select With Selection.Font .Size = 10 ChartTitle.Characters.Text = Workbook.Name End With Next i End Sub
Any assistance is greatly appreciated.