Sub 全部のシートを順番に選択する()

    '宣言
    Dim i As Integer
   
    'ループ処理 すべてのシートを順番に
    i = 1
    Do Until i > Sheets.Count
        Sheets(i).Select  'i番目のシートを選択
       
        MsgBox "選択しているシートは" & Sheets(i).Name & "です" '選択中のシート名を表示
       
        i = i + 1
   
    Loop

End Sub