Excelの全シート名を一覧化

Excelブック内にある全シートの名前を取得し、ブックの最後にその一覧を作成します。

Sub 全シート名書き出し()
'
    Dim wsCount As Long  'シート数

    '

    wsCount = Worksheets.Count

    '

    Worksheets.Add after:=Worksheets(wsCount)  'シート名を一覧にするためのシートを作成

    Dim i As Long

    For i = 1 To wsCount

        Range("A" & i) = Sheets(i).Name  'A列にシート名を書き出し

    Next i

    '

End Sub

以上です。