Public Sub ShowHiddenNames()
    Dim wName As Name
    For Each wName In ActiveWorkbook.Names
        wName.Visible = True
    Next
End Sub