ClearContents Named Range

[sbeatton]

Quick query for those VBA inclined. Is it possible to write a amcro that will clear the cell contents of all named ranges on a worksheet, or would I have to clear them all individually?

 

[DonkeyOte]

would fire against active sheet named ranges

Sub NAME_RANGE_CLEAR()
Dim nr As Name
For Each nr In ActiveWorkbook.Names
    If nr.RefersToRange.Worksheet.Name = ActiveSheet.Name Then
        nr.RefersToRange.Value = ""
    End If
Next nr
End Sub

 

[Jon von der Heyden]

Try this:

On Error Resume Next

For Each Nm In ActiveWorkbook.Names
    Range(Nm).Clear
Next Nm

Regards
Jon