ワークシート名の取得

すべてのワークシート名を取得するのは、以下の方法です。

Sub test()
     Dim objSheet As Object
     For Each objSheet In ActiveWorkbook.Sheets
         Debug.print objSheet.Name
     Next
End Sub

ワークシート番号を指定して、ワークシート名を取得するのは、以下の方法です。

Sub test()
    Debug.Print(ActiveWorkbook.Sheets(1).Name)
End Sub

一番最後のワークシートの名前を取得するのは、以下の方法です。

Sub test()
    Debug.Print(ActiveWorkbook.Sheets(ActiveWorkbook.Worksheets.Count).Name)
End Sub

VBAのお勉強　まとめに戻る