【Excel】A1セル選択

納品物はA1セルにカーソルが選択されていないといけないことが多いので、
マクロでA1を選択します。

Sub TopCursor()
'
' TopCursor Macro
'
' A1にカーソルを合わせます。
'
    ' 画面のチラつきの防止設定を行う。
    Application.ScreenUpdating = False

    ' 全シート分繰り返す。
    Dim Sht As Worksheet
    For Each Sht In Worksheets
        ' シートを選択する。
        Sht.Select

        ' スクロールバーを上にする。
        Dim i As Integer
        For i = 1 To Windows(1).Panes.Count
            Windows(1).Panes(i).ScrollColumn = 1
            Windows(1).Panes(i).scrollRow = 1
        Next i

        ' A1セルを選択する。
        ActiveSheet.Cells(1, 1).Select
    Next Sht

    ' 先頭シートを選択する。
    Worksheets(1).Activate

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