Delete all Range Names Q

[Seanie]

How could I delete all Range Names in the activework book?

 

[Rick Rothstein]

This macro should do that...

Sub DeleteAllNamesInActiveWorkbook()
Dim N As Name
For Each N In ActiveWorkbook.Names
N.Delete
Next
End Sub

 

[Bob Phillips]

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

 

[Rick Rothstein]

I think I like Bob's macro better than mine so I would use it instead.

 

[Seanie]

Thanks Guys

 

[Dave Peterson]

I'd get a copy of Jan Karel Pieterse's (with Charles Williams and Matthew
Henson) Name Manager:

You can find it at:
NameManager.Zip from http://www.oaltd.co.uk/mvp