Excel Book 全シートの左上セル選択

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
    Next
    
    Worksheets(1).Activate

    Application.ScreenUpdating = True
End Sub