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

This macro should do that...

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

--
Rick (MVP - Excel)


"Seanie" wrote in message
...
How could I delete all Range Names in the activework book?

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

--
Rick (MVP - Excel)


"Rick Rothstein" wrote in message
...
This macro should do that...

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

--
Rick (MVP - Excel)


"Seanie" wrote in message
...
How could I delete all Range Names in the activework book?

Thanks Guys

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

"Seanie" wrote in message
...
How could I delete all Range Names in the activework book?

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

Seanie wrote:

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

--

Dave Peterson