Destination Property Example

This example scrolls through the active window until the upper-left corner of query table one is in the upper-left corner of the window.

Set d = Worksheets(1).QueryTables(1).Destination
With ActiveWindow
    .ScrollColumn = d.Column
    .ScrollRow = d.Row
End With