「Excel VBA」ActiveSheetでシート名を取得する

2022年1月12日

環境
Windows 10 64bit
Excel 2013
書式
シート名 = ActiveSheet.Name
すべてのシート数 Worksheets.Count

使用例

Sub funA()
    '現在のアクティブなシート名を取得
    sheetName = ActiveSheet.Name
    Debug.Print sheetName
    Debug.Print "********"
    
   'すべてのシート名を取得
    For i = 1 To Worksheets.Count
        Debug.Print Worksheets(i).Name
    Next
    
End Sub

実行結果
arkgame_03
********
arkgame
arkgame_02
arkgame_03