シート名を取得する

シート名を取得するにはNameプロパティを使用します。

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

Sub Proc_アクティブシート名()
    Dim s As String
    s = ActiveSheet.Name
    
    Debug.Print "アクティブなシート名は「" & s & "」です。"
End Sub

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