ワークシートが選択された（アクティブになった）とき、特定のセルに移動 - Excel VBA Tips Activateメソッド

Worksheet_Activate()だと、各シートに記述しなければならないが、ThisWorkbook内に記述することで１ヶ所で済む。

ThisWorkbook内に記述

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Application.ScreenUpdating = False
    Application.Goto Reference:=ActiveSheet.Range("A1"), _
 scroll:=True
    Application.ScreenUpdating = True
End Sub

Excel VBAの神様 ボクの人生を変えてくれた人

ExcelVBAのプログラミングのツボとコツがゼッタイにわかる本

自分のペースでゆったり学ぶ Excel VBA