Deleting all Names Quickly

[James_B]

Dear All,

Is anyone aware of a quick way of deleting all named ranges within a given workbook? I can loop over them, but it takes forever. (I've got about 20,000 names in total).

Turning the normal things off doesn't do much good either (e.g. auto-calculating, events, etc)

 

[buxtongt]

I read this wrong, what I posted is useless for something with 20,000 names. Sorry.

 

[mikerickson]

20,000 names? 20,000 ?!?!
I'd suggest using fewer names.

Dim oneName as Name

For Each oneName in ThisWorkbook.Names
    oneName.Delete
Next oneName