Deleting all Names in Excel

[Breen]

Hi all,

I currently have a workbook with over 1000 names defined and I would like to delete all of them at once. I have searched around and tried to use the following macro:

Sub DelNames()
For Each nm In ActiveWorkbook.Names
nm.delete
Next nm
End Sub

However, when I try to run it, I get a runtime error 1004: the name is not valid and it highlights nm.delete.
What am I doing wrong??? I have more than 1 workbook that I need to delete names in and it is a pain to go and delete each one manually.

Help!

Thanks

 

[Richard Schollar]

Hi

Use On Error Resume Next to skip over any problem ones:

Sub DelNames()
On Error Resume Next
    For Each nm In ActiveWorkbook.Names
        nm.delete
    Next nm
End Sub

 

[pgc01]

Hi Breen
Welcome to the board

Maybe they are not workbook names, but worksheet names?

 

[Breen]

Hi

Use On Error Resume Next to skip over any problem ones:

Sub DelNames()
On Error Resume Next
    For Each nm In ActiveWorkbook.Names
        nm.delete
    Next nm
End Sub

Thank you so much! This worked!!!!