In diesem Beispiel wird im aktiven Fenster ein Bildlauf durchgeführt, bis sich die obere linke Ecke der ersten Abfragetabelle in der oberen linken Fensterecke befindet.
Set d = Worksheets(1).QueryTables(1).Destination With ActiveWindow .ScrollColumn = d.Column .ScrollRow = d.Row End With