Beispiel zur Destination-Eigenschaft

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