FYI: The following code will delete all names in a workbook, including
those with a "#REF" error:

Sub Delete_Names()

Dim NameX As Name
On Error GoTo Nxt
For Each NameX In Names
ActiveWorkbook.Names(NameX.Name).Delete
Nxt:
Next NameX

End Sub

Adding the "On Error GoTo" will allow the code to also delete invalid
names too. I couldn't find this anywhere so I though I'd post it ...

-Brian

To delete all names simply -

Dim nm as Name
for each nm in Activeworkbook.Names
nm.delete
Next

I can't think of anything that would raise an error doing this and require
some sort of error handler.

Regards,
Peter T


"Brian B." <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> FYI: The following code will delete all names in a workbook, including
> those with a "#REF" error:
>
> Sub Delete_Names()
>
> Dim NameX As Name
> On Error GoTo Nxt
> For Each NameX In Names
> ActiveWorkbook.Names(NameX.Name).Delete
> Nxt:
> Next NameX
>
> End Sub
>
> Adding the "On Error GoTo" will allow the code to also delete invalid
> names too. I couldn't find this anywhere so I though I'd post it ...
>
> -Brian
>