Имена Листев в таблицу

[hacili]

Здравствуйте,
Как можно получить имена листьев как таблицу?
в виде:


Лист 1
Лист 2
Лист 3
Лист 4
Лист 5
Лист 6

[hacili]

пример :

[viter.alex]

Sub listofsheets()
  Dim i As Integer
  For i = 1 To ActiveWorkbook.Sheets.Count
    ActiveCell.Offset(i) = ActiveWorkbook.Sheets(i).Name
  Next
End Sub

Список будет выведен снизу от активной ячейки

[hacili]

Сообщение от viter.alex

Sub listofsheets()
  Dim i As Integer
  For i = 1 To ActiveWorkbook.Sheets.Count
    ActiveCell.Offset(i) = ActiveWorkbook.Sheets(i).Name
  Next
End Sub

Список будет выведен снизу от активной ячейки

Спасибо большое, работает

[Евгений ГВС]

А может использовать не For, а For Each in...

[viter.alex]

Сообщение от Евгений ГВС

А может использовать не For, а For Each in...

Можно, а смысл? Переменная типа Integer занимает ровно в два раза меньше места (2 байта), чем переменная типа Object (4 байта) или Variant, которые нужно использовать в цикле For Each. К тому же отдельного объекта Sheet в Excel нет, что было бы удобно.