如何在工作簿中的名称管理器中使用查找和替换所有命名范围

Question

我有一个宏来遍历我的工作簿中的名称管理器中的所有命名范围。这些命名范围用于多个工作表中的多个图表中的系列。我正在使用OFFSET函数来使用COUNTIF定义范围。我想更改COUNTIF函数中的条件。我需要在多个区域更改大约150个命名范围。我需要将“＆lt;＆gt; YTG”更改为“YTD”。这就是我所拥有的，但是当我尝试运行它时它不起作用。名称管理器中没有任何内容更改。有什么建议吗？

Sub Rename()
Dim YTG As String
Dim YTD As String
Dim NMRNG As Name

YTG = "<>YTG"
YTD = "YTD"

For Each NMRNG In ActiveWorkbook.Names
    If InStr(1, NMRNG.Name, YTG) > 0 Then
        NMRNG.Name = Replace(NMRNG.Name, YTG, YTD)
    End If
Next NMRNG
End Sub