DELETING NAMED CELLS IN A SELECTION

Eddie G. · Mar 25th, 2002, 08:24 AM

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 · Mar 25th, 2002, 08:32 AM

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. · Mar 25th, 2002, 08:55 AM

works great....thanks!!

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 25th, 2002, 08:24 AM	#1
Eddie G. Board Regular Join Date: Feb 2002 Location: OKC Posts: 98	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

Mar 25th, 2002, 08:32 AM	#2
Dave Hawley Banned Join Date: Feb 2002 Posts: 1,582	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

Mar 25th, 2002, 08:55 AM	#3
Eddie G. Board Regular Join Date: Feb 2002 Location: OKC Posts: 98	works great....thanks!!