ブック内の全シート名を取得

For each文によりブック内の全シート名を取得できます。

上のサンプルブックについて、以下のコードを実行してみます。

Sub Proc_ブック内の全シート名()
    Dim sh As Worksheet
    
    For Each sh In Worksheets
        Debug.Print sh.Name
    Next
End Sub

結果は以下のようになります。