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
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
works great....thanks!!
Like this thread? Share it with others