Переборать все листы, диаграмы и др.

[tae1980]

В состав книги могут входить листы, диаграмы и др.
Команда worksheets.count - дает количество листов, к ним можно обратиться через worksheets(имя).
Команда charts.count - дает количество диаграмм, к ним можно обратиться через charts(имя).
И т.п.
Можно ли ко всему этому обращаться и работать одинаково не разбирая по типам?

[VictorM]

Напишите Sheets.Count будет считать ВСЕ листы независимо от типа
Обращаясь к листу тогда тоже пишите Sheets вместо Worksheets.
Вот пример, перебирает все листы независимо от типа листа.

Sub tt()
    iSh = Sheets.Count
    For i = 1 To iSh
        Sheets(i).Activate
    Next
End Sub

[tae1980]

Сообщение от VictorM

Напишите Sheets.Count будет считать ВСЕ листы независимо от типа
Обращаясь к листу тогда тоже пишите Sheets вместо Worksheets.
Вот пример, перебирает все листы независимо от типа листа

Спасибо! Все гениальное просто.