This macro should do that...

Sub DeleteAllNamesInActiveWorkbook()
Dim N As Name
For Each N In ActiveWorkbook.Names
N.Delete
Next
End Sub

--
Rick (MVP - Excel)


"Seanie" wrote in message
...
How could I delete all Range Names in the activework book?