In diesem Beispiel wird die zehnte Zeile an den oberen Rand des Fensters verschoben.
Worksheets("Sheet1").Activate ActiveWindow.ScrollRow = 10