Is there a macro that can Remove All Defined Names

[JamesKM]

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

 

[Legacy 139]

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

 

[royUK]

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