do you want to delete queries?
would this work for you?
got this here in the ng.

sub remove()
Dim MyQT As QueryTable
Dim i As Long
Dim j As Long
Dim sheet As Worksheet

For Each sheet In Sheets
i = sheet.Index
For j = Worksheets(i).QueryTables.Count To 1 Step -1
Set MyQT = Worksheets(i).QueryTables(j)
MyQT.Delete
Next
Next
end sub



--


Gary


"kurt" wrote in message
oups.com...
Hello All

When I run my progran I use names the macro itself append number when
it is runned (xxxx); why??
How do I delete all theese names "Query_from_MS_Access_Database_xxxx"

Sub DeleteNames()
Dim sh As Workbook
On Error Resume Next

For t = 1 To 3500
x = "Query_from_MS_Access_Database_" & t
sh.Names(x).Delete
Next t

End Sub

This code does not work properly even if I change workbook to worksheet
and run i in the sheet or the workbook
Please help???
regards Kurt