サンプルマクロを実行すると、セルD6がアクティブになり、画面の左上端に
表示されます。

●準備●

　標準モジュールに次のマクロを作成してください。

●サンプル●

Sub Sample()

    Dim r As Integer
    Dim c As Integer
    
    Range("D6").Select
    MsgBox "アクティブセルD6を画面左上端に表示します"
    
    r = ActiveCell.Row
    c = ActiveCell.Column
    With ActiveWindow
        .ScrollRow = r
        .ScrollColumn = c
    End With
    
End Sub

●補足説明●

　Rowプロパティは、対象セル範囲の最初の領域の先頭行の番号を返します。
　Columnプロパティは、指定された対象セル範囲の最初の領域で、最初の列の番号
を返します。
　ScrollRowプロパティは、ウィンドウ枠内またはウィンドウ内で上端に表示される
行の番号の値を設定します。
　ScrollColumnプロパティは、ウィンドウ枠内またはウィンドウ内で左端に表示される
列の番号の値を設定します。