Получить имена всех листов в книге

[Temnota]

Подскажите, как получить имена листов ? в сторку с ячейки А1
Спасибо!

[пасечник]

Почитать в справке про
Worksheets Collection
Worksheets Property
и так далее
(типа про строку, про ячейку А1...).
Не стоит благодарнсти!

[Temnota]

прошу помочь, как получить имя листа? и поместить имя в ячейку А1

[Teslenko_EA]

Здравствуйте Temnota.
если с помощью VBA - можно подобной конструкцией:
[a1] = ActiveSheet.Name
и ещё, в справке по VBA есть вот такой пример

For Each ws In Worksheets
    MsgBox ws.Name
Next ws

читайте, знания придут и возможно Вы не будете соответствовать своему НИКу.
Евгений.

[SAS888]

Ну, зачем же так строго. Как правило, обучаться лучше всего на примерах рабочего кода. Один из "кучи" возможных вариантов:

Sub SheetsNames()
    Dim i As Integer: Rows(1).ClearContents
    For i = 1 To Sheets.Count: Cells(1, i) = Sheets(i).Name: Next
End Sub

[пасечник]

Чтобы ничего не испортить, лучше так:

Sub SheetsNames()
    Dim i As Integer
    Rows(1).Insert
    For i = 1 To Sheets.Count: Cells(1, i) = Sheets(i).Name: Next
End Sub

[SAS888]

Чтобы ничего не испортить, лучше так...

Ну, это, как говорится, автору виднее. Почему-то, я подсознательно думаю, что данный код не самоцель, а кусочек какой-то более мощной процедуры. И если ее предполагается запускать неограниченное количество раз, то нужно не добавлять строку, а обновлять данные. Опять же всей строки, или определенного диапазона, знает только автор вопроса.