Excelのマクロによるスクロール

エクセルの同じブックにある全てのワークシートにおいて、特定のセルをアクティブにして、かつスクロール位置を指定するためのマクロ。標準モジュールに以下を貼り付けて実行する。 (EXCEL 2007)
Sub allsheetscroll()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        Application.Goto Reference:=ws.Range("A1"), Scroll:=True
        ActiveWindow.ScrollRow = 1
        ActiveWindow.ScrollColumn = 1
    Next
End Sub