【Excel】全シート分繰り返す

Sub Test()

'
' Test Macro
'
' 全シート分繰り返す。
'
    ' 画面のチラつきの防止設定を行う。
    Application.ScreenUpdating = False

    ' 全シート分繰り返す。
    Dim Sht As Worksheet
    For Each Sht In Worksheets
        ' シートを選択する。
        Sht.Select
        ' 処理を記述する。
        Msg "test"
    Next Sht

    ' 画面のチラつきの防止設定を元に戻す。
    Application.ScreenUpdating = True
End Sub