不要名前定義の削除マクロ

Sub 不要名前定義を削除する()
　Const cnsTitle = "不要名前定義削除処理"
　Dim nm As Name
　Dim i　As Integer: i = 0
　On Error Resume Next　' エラーを無視。(削除件数にカウントしてしまいます)
　For Each nm In ActiveWorkbook.Names
　　If InStr(nm.Value, "#REF") > 0 Or _
　　　 InStr(nm.Value, "\") > 0 Then
　　　 nm.Delete
　　　 i = i + 1
　　Else
　　　 MsgBox "OK:Name=" & nm.Name & " Value=" & nm.Value
　　End If
　Next nm
' 終了の表示
　MsgBox "不要な名前定義を削除しました。" & vbCr & _
　　　　"削除定義件数=" & i & "件", vbInformation, cnsTitle
End Sub