I have the following code in one of my worksheets

For Each AllCharts In Worksheets(TemperatureSheetName).Shapes

As you can see the chart is a shape.

"Barb Reinhardt" wrote:

I want to do the following:

For Each objCht In SheetCodeName
With objCht
Debug.Print .Chart.ChartTitle.Text
End With
Next objCht

I'm getting an error on the first line. For this example, I'm assuming the
code name is SheetCodeName. What am I doing wrong.

In addition, I want to parse the chart title with the split at "-", what do
I need to do. There should be only one entry of "-"

Thanks