Delete all Range Names Except for 1 Q

[Sean]

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

 

[Jon Peltier]

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

- Jon

 

[Sean]

Thanks Jon

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
_______