Developing.ru

[url=http://progipertoniu.ru/gipertoniya-u-zhenshhin/nikotinovaya-kislota-pri-gipertonii]никотиновая кислота при гипертонии[/url]

[quote="Author_R"]Одно дело посмотреть на перечень листов, но совсем другое дело получить его в виде списка[/quote]

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

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
Перед тем как его запустить создайте новый лист и сделайте его активным

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

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

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

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

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