This deletes all querytables from ActiveSheet

Dim qtb As QueryTable

For Each qtb In ActiveSheet.QueryTables
qtb.Delete
Next

This approach will leave behind the named range for the querytable.

If you're managing QueryTables you may be interested in the Query Editor
Add-In on my website.


--
Rob van Gelder - http://www.vangelder.co.nz/excel


wrote in message
oups.com...
Is it possible to disable "save query definition" through macro.
Basically I do not want any external data links saved in define names
when I run query through macro.

Thanks