You might want to be careful when deleting *all* names since Excel uses
Names for some of the things it does (Print Area, Print Titles for example);
however, this code will delete *all* Names...

Sub deleteRanges()
Dim WBname As Name
For Each WBname In ActiveWorkbook.Names
WBname.Delete
Next
End Sub

--
Rick (MVP - Excel)


"Lynn" wrote in message
...
sorry, its called names.

Insert - names - define

How do i delete all names in a workbook. thanks