非表示の名前定義を表示

非表示になっている名前定義を表示します。
何を表示したかについて、debug.print でイミディエイトウィンドウに出力しています。

Sub 非表示の名前定義を表示()

    Dim nm As Name
    Dim i As Long
    
    i = 0
    For Each nm In ActiveWorkbook.Names
        If nm.Visible = False Then
            nm.Visible = True
            i = i + 1
            If i = 1 Then
                Debug.Print "名前定義の非表示解除 --- 開始 " & Format(Now(), "yyyy/mm/dd hh:mm")
            End If
            Debug.Print nm.Name
        End If
    Next nm
    If i >= 1 Then
        Debug.Print "名前定義の非表示解除 --- 終了 " & Format(Now(), "yyyy/mm/dd hh:mm")
    End If

End Sub