Worksheet.QueryTables (Excel)

Returns the QueryTables collection that represents all the query tables on the specified worksheet.

Dim qtsQueryTables As QueryTables
Set qtsQueryTables = ActiveSheet.QueryTables