表示されるシートの位置を変更する

アクティブセルを変更せずに 表示されるシートの位置を変更する方法です
選択セルがシートの表示範囲外になる場合もあります

選択セルを同時に左上に変更する場合には Application.Goto メソッドを利用する方法 もあります

Windows(1).ScrollRow = 1
Windows(1).ScrollColumn = 1