Dim ws As Worksheet
Dim qt As QueryTable

Sub qtAddy()
For Each ws In ThisWorkbook.Worksheets
For Each qt In ws.QueryTables
MsgBox qt.Destination.Address
Next qt
Next ws
End Sub

Thanks!
Cliff Edwards