開いてるファイルのカーソル位置をA1に合わせる

開いてるファイルの各シートのカーソル位置をA1にあわせます。
非表示シートもあわせてますが、お好みですね（IFで分岐したので不要な方は消してください）。

Sub アクティブブックのカーソル位置A1合わせ()
    Dim ws As Variant           'WorkSheet用変数
    Dim temp As String          '非表示シートの表示状態
    Dim wsActive As Worksheet   '処理前にアクティブなシート
    Set wsActive = ActiveSheet  'アクティブなシートを記憶
    'カーソル位置合わせ
    With ActiveWorkbook
        For Each ws In .Worksheets
            '表示シート
            If ws.Visible = True Then
                ws.Select
                Cells(1, 1).Select
                ActiveWindow.Panes(1).ScrollRow = 1
                ActiveWindow.Panes(1).ScrollColumn = 1
            '非表示シート
            Else
                temp = ws.Visible
                ws.Visible = True
                ws.Select
                Cells(1, 1).Select
                ActiveWindow.Panes(1).ScrollRow = 1
                ActiveWindow.Panes(1).ScrollColumn = 1
                ws.Visible = temp
            End If
        Next ws
    End With
    wsActive.Select     '処理前にアクティブだったシートに戻る
    Set wsActive = Nothing
End Sub