Sub Sample9() 'B10のセルをアクティブセルにして、上下方向のみスクロール Range("B10").Activate ActiveWindow.ScrollRow = 10 End Sub