I have about 3000+ define name in my workbook. It was not created in this
workbook. But somehow they are just there. The workbook does link to many
files. Now I want to clear them all out. I have used the following VB codes
posted in this website to delete all these define names.

Sub DeleteAllNames()
Dim objName As Excel.Name
For Each objName In ActiveWorkbook.Names
objName.Delete
Next objName
End Sub

However, it gives me the "Run-time error '1004': that name is not valid.

Can anyone please help me how to do this? Thanks a lot.