Developing.ru

Как максимально быстро получить список всех листов книги?

For Each s in ActiveWorkbook.Sheets
Debug.Print s.Name
Next s

А если просто нажать правой кнопки мыши на левый нижний угол файла, туда, где "нарисованы" стрелки прокруток? Не пробовали?

pygma писал(а):А если просто нажать правой кнопки мыши на левый нижний угол файла, туда, где "нарисованы" стрелки прокруток? Не пробовали?

Одно дело посмотреть на перечень листов, но совсем другое дело получить его в виде списка

Author_R писал(а):Одно дело посмотреть на перечень листов, но совсем другое дело получить его в виде списка

ПОпробуйте этот макрос, работает отлично:

Sub SheetList()
Dim sheet As Worksheet
Dim cell As Range
With ActiveWorkbook
For Each sheet In ActiveWorkbook.Worksheets
Set cell = Worksheets(1).Cells(sheet.Index, 1)
cell.Formula = sheet.Name
Next
End With
End Sub
Перед тем как его запустить создайте новый лист и сделайте его активным