This nifty little macro removes all names from a workbook and gives you the opportunity to start fresh!
Option Explicit Sub RemNamedRanges() Dim nm As Name On Error Resume Next For Each nm In ActiveWorkbook.Names nm.Delete Next On Error Goto 0 End Sub