[RESOLVED] How to delete range name

[doasidont]

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.

[Siddharth Rout]

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

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

[doasidont]

Thanks.