Sub シートを4つ目まで順番に選択する_その2()

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

End Sub