【VBA】ブックのシート一覧を取得する

今回は、ブックのシート一覧を取得します。 では、さそくサンプルです。

Sub Main()

    Dim thisBk As Workbook
    Set thisBk = ThisWorkbook
    Dim thisWs As Worksheet
    Set thisWs = ThisWorkbook.Worksheets(1)

    Dim ws As Worksheet
    For Each ws In thisBk.Sheets
        Debug.Print (ws.Name)
    Next ws
End Sub

これで、全てのシートに対して処理をすることができます。
以上です。