Delete Worksheet-Specific Range Name using VBA

[mreiser33]

Need VBA code to delete worksheet-specific range name.

Your help is greatly appreciated.

 

[Biz]

Try code below

Sub DeleteChosenNames()
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, "Delete")
        If lReply = vbCancel Then Exit Sub
        If lReply = vbYes Then nName.Delete
    Next nName
End Sub

Alternative all ranged names in worksheet try code below

Sub DeleteNamesInASpecificWorksheet()
Dim nName As Name
    For Each nName In ThisWorkbook.Names
        If InStr(1, nName, "Sheet1") > 0 Then
            nName.Delete
        End If
    Next nName
End Sub

Biz