Delete Multiple Named Ranges Quickly

This macro will allow you to delete multiple named ranges very quickly. When you run this macro, a message box will pop-up and ask you if you want to delete a named range; you then hit "Yes" or "Cancel" and then a message box will pop-up for the next named range with the same options as before. This will occur for every named range in the workbook. This way, you can see what the named range is and then quickly delete a large number of them if you need to. If you hit "Yes" on the message box, the named range will be deleted and if you hit "Cancel" the named range will not be deleted.

Where to install the macro:  Module

Delete Multiple Named Ranges Quickly

Sub Delete_Multiple_Named_Ranges_Quickly()
Dim nName As Name
Dim lReply As Long
    For Each nName In Names
        lReply = MsgBox("Delete the named range " & nName.Name _
             & vbNewLine & "It refers to: " & nName.RefersTo, _
             vbQuestion + vbYesNoCancel)
        If lReply = vbCancel Then Exit Sub
        If lReply = vbYes Then nName.Delete
    Next nName
End Sub

---