It creates a query table object:

Dim WS As Worksheet
Dim QT As QueryTable
Dim QTCount As Long

For Each WS In ThisWorkbook.Worksheets
For Each QT In WS.QueryTables
Debug.Print QT.Parent, QT.CommandText
QTCount = QTCount + 1
Next
Next

MsgBox "There are " & QTCount & " query tables in this workbook."

NickHK

"jerm" wrote in message
ups.com...
Hi, when I import external data into excel using the Tools Import
External Data .... function where does excel store this connection?
I know it's there because i can right click and 'Refresh Data".....

I would like to access this connection some how but am not sure as how
I go about doing so...

Regards,
jerm