One way for all names
on a new sheetinsertnamepastelist

or
Sub QueryTableList()
Dim q As QueryTable
For Each sh In Worksheets
i = 3
For Each q In sh.QueryTables
'MsgBox q.Name
Cells(i, 1) = q.Name
i = i + 1
Next q
Next sh
End Sub

--
Don Guillett
SalesAid Software

"sjp209" wrote in message
...
Is there a way to list ALL existing queries within an Excel workbook?