How many queries are there in my entire Excel workbook?

[sjp209]

Is there a way to list ALL existing queries within an Excel workbook?

 

[Don Guillett]

One way for all names
on a new sheet>insert>name>paste>list

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