定義名の削除（フフ）

Excelで定義名の削除に悩み、Internet検索し、本元のMicroSoftのページを見つけたが、機械翻訳が非常に面白く、転載する。
URL　http://support.microsoft.com/kb/153454/ja
-----
詳細
マイクロソフトは提供プログラミング言語の使用方法の一例としてのみ、姿表現または暗黙に提供します。 これはに含まれますに、黙示または商品性および特定目的に対する適...マイクロソフトは提供プログラミング言語の使用方法の一例としてのみ、姿表現または暗黙に提供します。 これはに含まれますに、黙示または商品性および特定目的に対する適合性の黙示保証は一切制限はありません。 この資料ではであると見なすは、例示されているプログラミング言語を作成したりプロシージャをデバッグするためのツールと使い慣れた。 マイクロソフト サポート エンジニアに、特定のプロシージャの機能について説明する役立ちますが追加機能を提供する構築手順、特定の要件を次の例は変更されません。 #REF を削除する! 定義名は、内のエラー次の手順に従います。

' This procedure deletes every named range in which the RefersTo
' argument contains #REF!, where #REF! begins at the second character
' and ends at the fifth.

Sub Delete_Every_Named_Range_With_A_Reference_Error()
Dim nm As Object
Dim mystr As String

' Loops through each name in the active workbook.
For Each nm In ActiveWorkbook.Names

' Check for #REF! in the defined name reference.
If InStr(1, nm.RefersTo, "#REF!") Then

' Delete the defined name if it is a match.
nm.Delete

End If
Next
End Sub