Make all named ranges visible

Makes all named ranges in the active workbook visible.
Author: michael@excelexperts.co.uk

Sub MakeNamesVisible()

    Dim xName As Name

    Call TurnOff

    For Each xName In Application.ActiveWorkbook.Names
        xName.Visible = True
    Next

    Call TurnOn

End Sub