Delete All Workbook Names at Once

[chris-evans]

I currently have the following code to delete all names within a workbook:

Sub Delete_All_Names()

Dim WbkName As Name

For Each WbkName In Names
WbkName.Delete
Next WbkName

End Sub

This works fine, however I have 36,000 (!) names in one particular workbook and this macro takes some time to run. I need to run this macro regularly before I send out this file to Excel 97 users as they can't open the workbook with that many names.

Is it possible to delete them all in a quicker way?

I hope someone can help!

Thanks in advance

Chris