Recorra todos los cuadros en un libro de trabajo con VBA
Estoy tratando de recorrer todos los cuadros en un libro de trabajo. ¿Por qué funciona la opción 1, pero la opción 2 no?
'OPCIÓN 1
For Each sht In ActiveWorkbook.Worksheets
For Each cht In sht.ChartObjects
MsgBox (cht.Name)
Next cht
Next sht
'OPCION 2
Dim oChart As Chart
For Each oChart In Application.Charts
MsgBox (oChart.Name)
Next oChart
End Sub