セルに付けたNameオブジェクトの完全削除

質問

お世話になります。
エクセルVBAを使用しています。
Execel2003の時に、次の様に沢山のNameを付けました。
Range("B003:B024").Name = "namA_User"

これで複数のシートにコピーしていました。
これの欠点は、手作業でシートをコピーしようとすると、重複Nameの確認メッセージが表示される事です。
故に、Execel2010に移行した時に、Nameの使用を止めて、Constant定義に替えました。
併せて、Names("XXXX").Deleteで、出来るだけ、削除しましたが、削除しきれずに、まだ残っています。
数式表示の項目に表示されますが、削除出来ないものがあるという事です。

さて、質問ですが、最近、次の現象がある事がわかりました。
Excell2010です。　（Excell2003では試していません。）

Nameを定義していないシートを、手作業でコピーして、そのコピーされたシートを再び手作業でコピーしようとすると、重複Nameの確認メッセージが表示されてしまいます。
Execll2003の時に定義して消したつもりのNameが２０個ぐらい表示されます。

これは、どうしてでしょうか？
実感としては、シートにはNameはないが、Bookのどこかに、残っている感じです。
なお、数式表示項目で見てもNameはありません。

併せて、Nameオブジェクトを一発で削除する方法はないでしょうか＞
御教示、よろしくお願いいたします。

回答No.1

yorozu_ya · ベストアンサー

> なお、数式表示項目で見てもNameはありません。
数式表示ではなく、「挿入」→「名前」→「定義」で見ましょう。
※Excel2003の場合です。

お礼

Excel2010では、「数式」→「名前の管理」
である事が判りました。
2003年から2010年の約８年間で、名前定義してシートコピーを
繰り返し溜まった名前が８０個程表示されました。
この画面で早速、削除していきたいと思います。
ありがとうございます。

回答No.2

merlionXX

> Nameオブジェクトを一発で削除する方法はないでしょうか

BOOK内のNameをすべて削除するなら

Sub test()
　　Dim nm As Name
　　For Each nm In ActiveWorkbook.Names
　　　　nm.Delete
　　Next
End Sub

でOKです。

お礼

うーん、この方法でも出来るのですね。
とりあえず、No.1の方法で削除しますが、
少し残しておいて、今後の勉強の為に
ご提案のこのNo.2の方法のプログラムも試してみるつもりです。
ありがとうございます。