ClearContents Named Range

sbeatton

Active Member
Joined
May 19, 2004
Messages
411
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?
 

Excel Facts

What is the fastest way to copy a formula?
If A2:A50000 contain data. Enter a formula in B2. Select B2. Double-click the Fill Handle and Excel will shoot the formula down to B50000.
would fire against active sheet named ranges

Code:
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
 
Upvote 0
Try this:

Code:
On Error Resume Next

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

Regards
Jon
 
Upvote 0

Forum statistics

Threads
1,212,934
Messages
6,110,762
Members
448,295
Latest member
Uzair Tahir Khan

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top