Thank you Dianne,
This solution worked fine!.

Thank you again for your response.




"Dianne Butterworth" wrote:

Dim ws As Worksheet
Dim qtbl As QueryTable

For Each ws In ActiveWorkbook.Worksheets
For Each qtbl In ws.QueryTables
With qtbl
Msgbox .Connection
End With
Next qtbl
Next ws

--
Dianne Butterworth

SPYREN wrote:
Greetings,

How can I determine the contents of Connection property of the
QueryTable object in a Worksheet and if there are several queries in
the same Worksheet?.

Thank you in advance for your support.