Loop through all charts in a workbook with VBA

Question

I am trying to loop through all charts in a workbook. Why is option 1 working, but option 2 not?

\'OPTION 1

For Each sht In ActiveWorkbook.Worksheets         


        

Answer 1

As the documentation states, Application.Charts returns a Sheets collection containg all chart sheets (not charts!). For Worksheet.ChartObjects, however, the documentation says that it returns a ChartObjects collection containing all charts on that sheet.