各シートの先頭位置をA1セルへ移動

エクセルで一つのブックに複数シートについて作業を行った後
次回そのブックを開くときのために、
各シートの先頭位置をA1セルへ移動したい場合があります。

これを毎回手作業で行うとなると、
特にシート数が多い場合は面倒で時間がかかります。

以下のVBAを実行することによって、
各シートの先頭位置をA1セルへ移動し、
一番目左側にあるシートをアクティブにすることができます。

Sub ScrollToTop()
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        'スクロール位置を先頭に移動
        With ActiveWindow
            .ScrollRow = 1
            .ScrollColumn = 1
        End With
        'A1セルを選択
        ws.Activate
        ws.Cells(1, 1).Activate
    Next
    '一番目のシートを選択
    Worksheets(1).Activate
End Sub