【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

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

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です