I have the following code which deletes all Range Names in a Workbook.
How would I delete all except for 1 Range Name called "MyUsers"

For Each nName In ActiveWorkbook.Names
nName.Delete
Next


Thanks

For Each nName In ActiveWorkbook.Names
If nName.Name <> "MyUsers" Then
nName.Delete
End If
Next

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"Sean" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>I have the following code which deletes all Range Names in a Workbook.
> How would I delete all except for 1 Range Name called "MyUsers"
>
> For Each nName In ActiveWorkbook.Names
> nName.Delete
> Next
>
>
> Thanks
>

Thanks Jon

Jon Peltier wrote:
> For Each nName In ActiveWorkbook.Names
> If nName.Name <> "MyUsers" Then
> nName.Delete
> End If
> Next
>
> - Jon
> -------
> Jon Peltier, Microsoft Excel MVP
> Tutorials and Custom Solutions
> http://PeltierTech.com
> _______
>
>
> "Sean" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
> >I have the following code which deletes all Range Names in a Workbook.
> > How would I delete all except for 1 Range Name called "MyUsers"
> >
> > For Each nName In ActiveWorkbook.Names
> > nName.Delete
> > Next
> >
> >
> > Thanks
> >