Dim nm as Name
for each nm in Thisworkbook.Names
if instr(1,nm.Name,"_Improtfouten",vbTextCompare) then
nm.RefersToRange.Clear
end if
Next

Perhaps.

--
Regards,
Tom Ogilvy


"Henrootje" wrote in message
oups.com...
I would like to delete all tables in my database that have the string
'_Importfouten' in their name.

Any suggestions no how to do this?

TIA,

Henro