DELETING NAMED CELLS IN A SELECTION

[Eddie G.]

I can delete all of the named cells with the below code, but i want to delete the named cells of a selected range that I choose only. Please help.

sub deleteallnames ()
dim nm as name
for each nm in names
nm.delete
next
end sub

 

[Dave Hawley]

Hi Eddy


Try this

Sub deleteallnames()
Dim nm As Name
On Error Resume Next
For Each nm In Names

If Not Intersect(Range(nm.Name), Selection) _
Is Nothing Then nm.Delete
Next nm

On Error GoTo 0
End Sub

 

[Eddie G.]

works great....thanks!!