Excel VBA Макросы. Как просмотреть все листы в Excel-файле?

[Посетитель]

Как просмотреть все листы в Excel-файле (Excel-книге)?

[Администратор]

Sub Макрос1()
   
    Dim shMy As Excel.Worksheet
   
   
    'Просмотр всех обычных листов Excel-файла
        '(необычные листы это диаграммы).
    'Переменная "shMy" представляет собой VBA-имя листа,
        'с помощью этого имени можно манипулировать листом.
    'Сначала VBA-имя "shMy" назначается первому листу, затем второму и так до последнего.
    For Each shMy In ActiveWorkbook.Worksheets
        'Вывод имени листа в View - Immediate Window.
        Debug.Print shMy.Name
    Next shMy
   
End Sub