Sub テスト dim window1 as window windows vbasample xls activate set window1 activewindow msgbox セルb2が左上の位置にくるように表示します window1 scrollrow 2 window1 scrollcolumn 2 end sub 上記マクロを実行すると次のよう表示されます.