Я пытаюсь перебрать все графики в рабочей книге. Почему вариант 1 работает, а вариант 2 нет?

'ОПЦИЯ 1

For Each sht In ActiveWorkbook.Worksheets
    For Each cht In sht.ChartObjects
        MsgBox (cht.Name)
    Next cht
Next sht

«OPTION2

Dim oChart As Chart
    For Each oChart In Application.Charts
        MsgBox (oChart.Name)
    Next oChart
End Sub