シートを貼り付けたの時の使われている名前ですエラー回避

リボンメニュー「数式」の「名前の管理」の名前を全て削除してもエラーが消えないのは
非表示になっている名前があるときです。表示されない名前を表示させるVBAです

    '非表示になっている名前を表示させる
    For Each nm In ThisWorkbook.Names
        If nm.Visible = False Then
            nm.Visible = True
            count = count + 1
        End If
    Next nm
