Bob, I've a similar situation where I was pulling a lookup table from one spreadsheet to another. It was riddled with NAME references. I got tired of looking at it and found your post.

This worked like a charm!

Thanks very much for your post.



Bob Phillips wrote:

Deleting Multiple Names
19-Feb-09

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

"TomCat" wrote in message
...

EggHeadCafe - Software Developer Portal of Choice
WPF And The Model View View Model Pattern
http://www.eggheadcafe.com/tutorials...l-view-vi.aspx