編集中のワークシートを後で再度選択した場合、任意のセルに自動でジャンプされればいいなと思うことはありませんか。何行もあるシートをその都度スクロールするのをやめたい方にはこんな方法があります。

例えばセル「C3」を選択したい場合は、この動作をさせたいワークシートモジュール内に以下のプロシージャを記述します。

Private Sub Worksheet_Activate()
  Application.Goto Range("C3")
End Sub

もし「C3」を左上端にしたい場合は第二引数にTrueを指定します。

Private Sub Worksheet_Activate()
  Application.Goto Range("C3"), True
End Sub

さらに条件を付けて、「A1」を左上端にして「C3」を選択しておく場合にはこうなります。

Private Sub Worksheet_Activate()
  Application.Goto Range("A1"), True
  Range("C3").Select
End Sub