With ActiveWindow
.ScrollRow = x
.ScrollColumn = y
End With