purge all names

[Guest]

Hi,

I have inherited a workbook with more than 10k defined names, most of which
refer to broken external references. I would like to purge my workbook once
for all of all these links.

I downloaded a utility from http://www.jkp-ads.com/

which is ok. However, I think it would be much easier to simply write a
macro to do the job. I tried the following, which does not work. What am I
doing wrong?


Sub DeleteNames()

For Each nme In ActiveWorkbook.Names

nme.Delete

Next nme

End Sub




In advance, thanks for your help!

 

[Norman Jones]

Hi Henrik,

Try:

'==========>>
Public Sub TestIt()
Dim nme As Name
For Each nme In ActiveWorkbook.Names
nme.Delete
Next nme
End Sub
'<<==========