VBA Excel选择以字符开头的命名范围

我对命名范围有点小问题

我在不同的工作表上有多个命名范围。我想用vba隐藏或显示所有这些范围。命名范围的示例：r1\u name1。另一张纸上的第二张是r1\U名称2。因此，所有范围都以前面相同的代码开始：r1\u1

---

如何在以r1开头的所有范围内循环并隐藏/显示它们？

要在命名范围内循环：

Sub tgr()

    Dim NamedRange As Name

    For Each NamedRange In ActiveWorkbook.Names
        If LCase(Left(NamedRange.Name, 3)) = "r1_" Then
            MsgBox NamedRange.Name & Chr(10) & _
                   Range(NamedRange.RefersTo).Address(External:=True)
        End If
    Next NamedRange

End Sub

要隐藏/取消隐藏它们，请执行以下操作：

Range(NamedRange.RefersTo).EntireRow.Hidden = True 'or False

---

非常感谢。我忘了LCase选项