[RESOLVED] How to delete range name

Need help, please. I have both a sheet level named range and a workbook level named range with the same name. How do I delete only the workbook level range name? Thanks.

Quote:

---

How do I delete only the workbook level range name? Thanks.

---

Code:

---

Sub DeleteRangeNamesForWorkbook()
    Dim nmName As Name
    Dim strShtName As String
   
    For Each nmName In ActiveWorkbook.Names
        '~~> Replace this with the duplicate range name
        If nmName.Name = "MyRangeName" Then
            strShtName = Range(nmName).Parent.Name
            '~~> Check if it is not for Sheet1. Change as appropriate
            If strShtName <> "Sheet1" Then
                nmName.Delete
                Exit For
            End If
        End If
    Next nmName
End Sub

---

Thanks.