Sub 画面をスクロールする()
    
    '行きたい行
    ActiveWindow.ScrollRow = 100
    
    '行きたい列
    ActiveWindow.ScrollColumn = 5
    
End Sub