Sub SheetsOfBook()
Dim sheet As Object
' Выводит сообщение с именем каждого из листов
For Each sheet In ActiveWorkbook.Sheets
MsgBox (sheet.Name)
Next
End Sub

 

Advertisements