Name manager - how to select all and delete all names?

[badass]

Hello fellow excelers!

I just moved a worksheet from one workbook to another and all of the defined names have transferred over (thousands upon thousands of them with #REF errors everywhere), making it impossible to navigate to my actual defined names that I want to use...I tried Ctrl + A to select all but that did not work...is there any way to select all of the names at once and delete them all? This is a real headache (even by holding the Shift + Down arrow it takes forever)...Any ideas on how to go about this? Here's what it looks like...

Any help would be greatly appreciated!

 

[JoeMo]

I haven't used this in a long while and haven't tested it since last use, but you can give it a try.

Sub RemoveNamesWithRefErrors()
'Removes all names in the active workbook that have #REF! errors in the RefersTo

Dim nm As Name, WkBk As Workbook, ctr As Integer, sList As String, msg As String
ctr = 0
sList = ""
Set WkBk = ActiveWorkbook
On Error Resume Next
For Each nm In WkBk.Names
    If InStr(1, nm.RefersTo, "#REF!") > 0 Then
        sList = sList & Chr(10) & nm.Name  'Chr(10) inserts a carriage return
        ctr = ctr + 1
        nm.Delete
    End If
Next nm
msg = ctr & UCase(" names with errors were deleted")
msg = msg & sList
MsgBox msg
End Sub

 

[badass]

WOW that was quick...thanks JoeMo! Will give this a try!
Cheers!