VBA subroutine to make all named ranges visible in Excel

Sub unhideNamedRanges()
Const UNHIDE As Boolean = True 'Set this to True if you want to unhide everything. Set = False to hide.

Dim N As Name

For Each N In ThisWorkbook.Names
   If N.Visible = Not (UNHIDE) Then
        N.Visible = UNHIDE
    End If

Next N

'Use this if you only want to look at items attached to sheets.
'Dim wks As Worksheet
'For Each wks In ThisWorkbook.Sheets
'    For Each N In wks.Names
'        If N.Visible = Not (UNHIDE) Then
'            N.Visible = UNHIDE
'        End If
'    Next N
'Next wks

End Sub