Here you go

Dim nme As Name

For Each nme In ActiveWorkbook.Names
Debug.Print nme.Name
nme.Delete
Next nme


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"U. Kõrsmaa" wrote in message
...
Dear masters

I tried several ways but could not find a solution.

How can I delete all the range names in the workbook with one command?

Thanks in advance
U.Kõrsmaa