Deleting All Range Names

[Jim]

Is there an easy way to delete a group of range names or all the range names
in a sheet at one time? The only way that I am aware of is to delete each
range name separately.

[Dave Peterson]

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

Jim wrote:
>
> Is there an easy way to delete a group of range names or all the range names
> in a sheet at one time? The only way that I am aware of is to delete each
> range name separately.

--

Dave Peterson

[Michael Bednarek]

On Fri, 3 Jun 2005 18:57:07 -0700, Jim <[email protected]>
wrote in microsoft.public.excel:

>Is there an easy way to delete a group of range names or all the range names
>in a sheet at one time? The only way that I am aware of is to delete each
>range name separately.

Sub DelAllRanges()
Dim rngRange As Name
For Each rngRange In ActiveWorkbook.Names
rngRange.Delete
Next rngRange
End Sub

--
Michael Bednarek http://mbednarek.com/ "POST NO BILLS"

[Don Guillett]

or try this
Sub DeleteAllNames_Umlas()
ExecuteExcel4Macro "SUM(DELETE.NAME(NAMES()))"
End Sub

--
Don Guillett
SalesAid Software
[email protected]
"Jim" <[email protected]> wrote in message
news:[email protected]...
> Is there an easy way to delete a group of range names or all the range
names
> in a sheet at one time? The only way that I am aware of is to delete each
> range name separately.