функция СУММ, что надо дописать?

[VictorM]

т.е. можно сделать так: создать отдельный лист и сделать чтобы макрос на нем автоматически запускался и обновлял данные о листах в книге(именно обновлялся, а не продолжался новым списком)?

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

[kuklp]

AKSENOV048, я что-то не вижу, что Вы чему-то учитесь. Кроме как задавать вопрос на разных форумах:"Ну что, никто не поможет?" Вставьте в модуль книги:

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Call tt
End Sub

Private Sub Workbook_Open()
    Call tt
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    Call tt
End Sub

Sub tt()
    Dim i&
    On Error Resume Next
    Me.Names("myshts").Delete
    Worksheets(1).[A:A].ClearContents
    For i = 1 To Sheets.Count
        Worksheets(1).Cells(i, 1) = Sheets(i).Name
    Next i
    Worksheets(1).[a1].CurrentRegion.Name = "myshts"
End Sub

Далее в нужной ячейке Данные-проверка-список-источник данных: =myshts
И все. Ничего не нужно запускать руками.

[AKSENOV048]

Сообщение от VictorM

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

а можно сделать чтобы макрос обновлял данные сразу при добавлении новых листов?

[VictorM]

опишите пожалуйста как так сделать подробней, буду очень благодарен!

Пока я писал ответ, уважаемый kuklp все расписал Вам самым подробным образом. )))
И дал готовый код.

[VictorM]

можно сделать чтобы макрос обновлял данные сразу при добавлении новых листов?

можно
все можно
но приложите и Вы хоть чуть, чуть усилий
направление и коды Вам даны

[AKSENOV048]

Сообщение от kuklp

AKSENOV048, я что-то не вижу, что Вы чему-то учитесь. Кроме как задавать вопрос на разных форумах:"Ну что, никто не поможет?" Вставьте в модуль книги:

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Call tt
End Sub

Private Sub Workbook_Open()
    Call tt
End Sub
Sub tt()
    Dim i&
    On Error Resume Next
    Me.Names("myshts").Delete
    Worksheets(1).[A:A].ClearContents
    For i = 1 To Sheets.Count
        Worksheets(1).Cells(i, 1) = Sheets(i).Name
    Next i
    Worksheets(1).[a1].CurrentRegion.Name = "myshts"
End Sub

Далее в нужной ячейке Данные-проверка-список-источник данных: =myshts
И все. Ничего не нужно запускать руками.

))) да учусь я учусь), просто для меня на самом деле пока все это сложно! я уже неделю точно каждый день спать ложусь часов в 5 ночи или это уже утром считается, сижу и читаю информацию что для чего, но пока мало успехов.

Спасибо вам за помощь!
сейчас попробую ваш вариант.

[AKSENOV048]

Сообщение от VictorM

можно
все можно
но приложите и Вы хоть чуть, чуть усилий
направление и коды Вам даны

)Ок!
Спасибо большое!

[AKSENOV048]

все отлично работает. только притормаживает при каждом переходе со страницы на страницу, так и должно быть?

[VictorM]

У меня не притормаживает, но если у Вас тормозит и если Вам не нужно обновлять список

при каждом переходе со страницы на страницу,

Закомментируйте

'Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
'    Call tt
'End Sub

[AKSENOV048]

Сообщение от VictorM

У меня не притормаживает, но если у Вас тормозит и если Вам не нужно обновлять список

Закомментируйте

'Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
'    Call tt
'End Sub

не помогло(