[VBA]開いているExcelブックのフォーカスをA1に揃えるマクロ

module1.bas

Public Sub SelectA1()
    '描画停止
    Application.ScreenUpdating = False
    
    Dim firstIndex As Integer
    firstIndex = 0

    Dim Target As Worksheet
    For Each Target In Worksheets
        'Debug.Print target.Name
        If Target.Visible = xlSheetVisible Then
            If firstIndex = 0 Then
                firstIndex = Target.Index
            End If
            Target.Select
            Target.Cells(1, 1).Select
            '表示倍率を変更
            ActiveWindow.Zoom = 100
            'スクロールをA1までする
            Application.Goto Reference:=Target.Range("A1"), Scroll:=True
            '表示を標準ビューにする
            ActiveWindow.View = xlNormalView
        End If
    Next Target
    
    Worksheets(firstIndex).Select
    Application.ScreenUpdating = True
End Sub