Как просмотреть все листы в 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