aadil177
02-29-2016, 07:17 AM
Hi,
I use this script to change the titles of charts in worksheets. I would like to know how this script can be modified to change the titles of ChartSheets.
Sub dotitles()
For Each sh In Worksheets
For Each ch In sh.ChartObjects
If ch.Chart.HasTitle Then
ch.Chart.ChartTitle.Text = Replace(ch.Chart.ChartTitle.Text, "January", "February", 1)
End If
Next
Next
End Sub
Please advise
Thank you
I use this script to change the titles of charts in worksheets. I would like to know how this script can be modified to change the titles of ChartSheets.
Sub dotitles()
For Each sh In Worksheets
For Each ch In sh.ChartObjects
If ch.Chart.HasTitle Then
ch.Chart.ChartTitle.Text = Replace(ch.Chart.ChartTitle.Text, "January", "February", 1)
End If
Next
Next
End Sub
Please advise
Thank you