список имен (name) имеющихся в книге рабочих листов

[ViktorASh]

Добрый день. Подскажите пожалуйста, возможно ли с помощью кода вывести на один из рабочих листов книги список имен всех имеющихся в данной книге листов. И второй вопрос, как поддерживать это список в актуальном состоянии (при удалении, добавлении, либо перемещении листов). Спасибо

[IgorGO]

Sub SheetsNames()
  Dim ws As Worksheet, r As Long
  Columns(1).ClearContents
  For Each ws In Worksheets
    r = r + 1: Cells(r, 1) = ws.Name
  Next
End Sub

[Serge_Bliznykov]

ViktorASh, из серии "А вы знаете, что..."

если нажать правой кнопкой мышки на кнопках перемещения по листам отобразиться список листов книги?