Attribute VB_Name = "testwindowope6"
Sub テスト()
    
    Dim window1 As Window
    
    Windows("VBAsample.xls").Activate
    Set window1 = ActiveWindow
    
    MsgBox "セルB2が左上の位置にくるように表示します"

    window1.ScrollRow = 2
    window1.ScrollColumn = 2
    
End Sub