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" <(E-Mail Removed)> wrote in message
news:f7907d35-f5f4-4d53-aecd-(E-Mail Removed)...
> How could I delete all Range Names in the activework book?
>

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" <(E-Mail Removed)> wrote in message
news:f7907d35-f5f4-4d53-aecd-(E-Mail Removed)...
> 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" <(E-Mail Removed)> wrote in message
news:%23lms%(E-Mail Removed)...
> 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" <(E-Mail Removed)> wrote in message
> news:f7907d35-f5f4-4d53-aecd-(E-Mail Removed)...
>> How could I delete all Range Names in the activework book?
>>
>

Thanks Guys

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