Remove all defined names from a workbook


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