Is there a macro that can Remove All Defined Names

JamesKM · Sep 5th, 2002, 02:41 AM

I have recorded a macro that can delete specific Define Names
(ActiveWorkbook.Names(####).Delete)
but as there are multiple and varying Names Defined in the sheets I am trying to amalgamate I wanted to create a generic one to delete all of them.

Is this possible?

Thanks in advance,

James

Tikas A. Planck · Sep 5th, 2002, 02:47 AM

Sub DeleteAllNames()
Dim x%
For x = ActiveWorkbook.Names.Count To 1 Step -1
Range(ActiveWorkbook.Names(x).Name).Name.Delete
Next
End Sub

royUK · Sep 5th, 2002, 02:52 AM

Hi

If you download the asap addin from www.asap-utilities,com there is a utility in the Range Menu to let you delete range names in a selection or the whole Workbook

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

Sep 5th, 2002, 02:41 AM	#1
JamesKM Board Regular Join Date: Aug 2002 Location: St Albans Posts: 130	I have recorded a macro that can delete specific Define Names (ActiveWorkbook.Names(####).Delete) but as there are multiple and varying Names Defined in the sheets I am trying to amalgamate I wanted to create a generic one to delete all of them. Is this possible? Thanks in advance, James

Sep 5th, 2002, 02:47 AM	#2
Tikas A. Planck Join Date: Feb 2002 Posts: 47	Sub DeleteAllNames() Dim x% For x = ActiveWorkbook.Names.Count To 1 Step -1 Range(ActiveWorkbook.Names(x).Name).Name.Delete Next End Sub

Sep 5th, 2002, 02:52 AM	#3
royUK Board Regular Join Date: Jul 2002 Location: Lincolnshire, UK Posts: 812	Hi If you download the asap addin from www.asap-utilities,com there is a utility in the Range Menu to let you delete range names in a selection or the whole Workbook