【Excel VBA】全てのシートの左上セルを選択後に先頭シートをアクティブ化

全てのシートの左上セルを選択後に先頭シートをアクティブにします。
ドキュメント作成後にこのマクロを実行してから保存すると良いと思います。

'
' 全てのシートを左上選択状態にする
'
Public Sub 全シート左上セル選択()
    On Error Resume Next
    
    ' 画面更新の停止
    Application.ScreenUpdating = False

    ' 全シート分実行
    Dim i As Integer
    For i = 1 To Worksheets.Count
        ' シートをアクティブ化
        Worksheets(i).Activate
        
        ' 左上にスクロール
        Dim j As Integer
        For j = 1 To Windows(1).Panes.Count
            Windows(1).Panes(j).ScrollColumn = 1
            Windows(1).Panes(j).ScrollRow = 1
        Next
        
        ActiveSheet.Cells(1, 1).Select      ' 左上を選択
        ActiveWindow.View = xlNormalView    ' 改ページプレビュー解除
        ActiveWindow.Zoom = 100             ' 倍率100%
    Next
    
    ' 1番目のシートをアクティブ化
    Worksheets(1).Activate

    ' 画面更新の再開
    Application.ScreenUpdating = True
End Sub