VBA Excel select named range starting with character

Question

I\'ve got a little problem with named ranges.

I have multiple named ranges on different sheets. i would like to hide of show all those ranges with vba. example of named

Answer 1

To loop through the named ranges:

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

To hide/unhide them them:

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