【Excel VBA】ブック内のシートの数とシート名を一括取得する方法

知らず知らずのうちにシートが増えて件数を確認したい場合があるかと思います。

そんな時は以下のコードで数えることができます。

Sub CountSheets()
    MsgBox Worksheets.Count
End Sub

実行すると件数が入ったメッセージボックスが表示されます。

シートの表示名を確認したい場合

シートの表示名を確認したい場合は以下の以下のコードを実行してください。

Sub SheetNames()
    Dim temp As Object
    Dim SheetName As String
    For Each temp In ThisWorkbook.Sheets
        SheetName = SheetName & vbNewLine & temp.Name
    Next temp
    MsgBox SheetName
End Sub

画像のように一覧表示ができます。