Finding Queries in code

I want to be able to use code such as

Please Login or Register  to view this content.

in a sub routine so that any one of several queries can be deleted.

How do I find the queries in my workbook using code and how should I make the reference to it in the sub routine
John

Maybe you can adapt this code which deletes all queries:

Please Login or Register  to view this content.

Chippy
Thanks for your suggestion which will be a good basis for what I want. I will try and then let you know how I got on.
John

Chippy
I made a small modification to your code

Please Login or Register  to view this content.

But got an error message on lo.QueryTable.Delete (application or Object defined error)
I got all the sheet names to print outbwhilst working up to the code so I think the loops are working.
John

Hi John

Not all ListObjects will necessarily have a QueryTable so it would be worth your while checking that the QueryTable property returns a QT first:

Please Login or Register  to view this content.