Sub DeleteNames()
Dim nme As Name

For Each nme In ActiveWorkbook.Names
If nme.Name Like "*_FilterDatabase" Or _
nme.Name Like "*Print_Area" Or _
nme.Name Like "*Print_Titles" Or _
nme.Name Like "*wvu.*" Or _
nme.Name Like "*wrn.*" Or _
nme.Name Like "*!Criteria" Then
Else
nme.Delete
End If
Next nme

End Sub

--
__________________________________
HTH

Bob

"Glenn" wrote in message
...
I need a simple way to delete all range names from a source file that I
process. I have no control over the source file. The file has a
bajillion
defined names that I'd like to not even know what they are, just delete
all.
Must I do them individually, or....