VBA to delete external named ranges (or with #REF in the named range value)

[Reddog94]

I am attempting to delete external named ranges after a sheet is copied out of a source workbook (the template). I have tried both the following codes, but neither one does the trick. The code is in ThisWorkbook (not a module), and I have tried it with the code both in the template and the new doc. The new doc is where I want the names to be deleted (there are no #REF names in the template).

Deletes named ranges based on the reference to the source doc:

Sub DelRanges()
Dim nName As Name
 
    For Each nName In Names
        If InStr(1, nName.RefersTo, "='T:\Fin_") > 0 Then
            nName.Delete
        End If
    Next nName
End Sub

Deletes named ranges based on a #REF in the value of the range (this is my preferred method):

Sub DeadRanges()
Dim nName As Name
 
    For Each nName In Names
        If InStr(1, nName.Value, "#REF") Then
            nName.Delete
        End If
    Next nName
End Sub

 

[Reddog94]

Also, for the first code I have tried the following for RefersTo:

"'T:\Fin_" (excludes equal sign - which I think is proper but including it was worth a shot when I couldn't get it to work)
"T:\Fin_" (excludes equal sign and single apostrophe)