Clear Named Ranges

[Les Stout]

Hi All, I have a number of named ranges on a spread sheet and need to
clear their values on exiting the spread sheet. Is it possible to "Clear
all" ??

Les Stout

 

[Guest]

Sub clearum()
Dim n As Name
For Each n In ActiveWorkbook.Names
Range(n).Clear
Next
End Sub


Note that the Name is really a string and therefore appears in the RANGE()
argument

 

[Bob Phillips]

Via a loop.

Dim nme As Name

For Each nme In ThisWorkbook.Names
If Not nme.Name Like "*_FilterDatabase" And _
Not nme.Name Like "*Print_Area" And _
Not nme.Name Like "*Print_Titles" And _
Not nme.Name Like "*wvu.*" And _
Not nme.Name Like "*wrn.*" And _
Not nme.Name Like "*!Criteria" Then
nme.Delete
End If
Next nme


--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Les Stout]

Thanks very much for the input and code Gary's Student, much
appreciated... (I'm getting there)

Les Stout