Excel 表示されない名前定義を削除するの変更点

• 追加された行はこのように表示されます。
• 削除された行はこのように表示されます。

!!!Excel 表示されない名前定義を削除する
[Excel]

*[Excelの見えない名前定義を削除する方法|http://crazycat.jp/?p=31]

!対処法
*マクロを実行後、「挿入」→「名前」→「定義」を選択し、名前の定義ダイアログを表示
*不要なものは削除
 Public Sub DeleteNames()
     Dim wName As Object
     Dim wCnt As Long
 
     For Each wName In Names
         If wName.Visible = False Then
             wName.Visible = True
             wCnt = wCnt + 1
         End If
     Next
     If wCnt <> 0 Then
         MsgBox wCnt & "個の名前定義が見つかりました。",vbInformation
     Else
        MsgBox "非表示の名前定義はありません。",vbExclamation
     End If
 End Sub