This will do it.

Sub DeleteAllNames() 'ALL sheets
For Each Name In Names
Name.Delete
Next Name
End Sub

or

Sub DeleteHiddenNames()
Dim n As Name
Dim Count As Integer
For Each n In ActiveWorkbook.Names
If Not n.Visible Then
n.Delete
Count = Count + 1
End If
Next n
MsgBox Count & " hidden names were deleted."
End Sub
Don Guillett
SalesAid Software
donaldb@281.com
"Dmitry Kopnichev" <kopn@bk.ruDelete> wrote in message
news:%23fyV1Js5FHA.2576@TK2MSFTNGP09.phx.gbl...
> Hello
> How to delete all defined names from a workbook?
>
>