アクティブになっているシート名を取得する

＜分類：値取得＞
＜使用例：現在アクティブになっているシート名を取得する＞
＜プログラム例＞

Sub アクティブになっているシート名を取得する()
    Dim s As String
    
    s = ActiveWorkbook.ActiveSheet.Name
    MsgBox ("現在アクティブになっているシートは " & s & " です")

End Sub