EXCELにある沢山の名前（範囲名）を一発で消去したい

質問

エクセルのブックに沢山の名前（挿入－名前－定義で作成した）があります。シートの移動またはコピーで新規ブックに１つのシートをコピーしたら名前の定義までコピーされてしまいました。
そこで、ＶＢＡを用いてこの名前を消去したいと考えましたが、方法が全く解りません。
ＶＢＡで名前を一気に消すにはどうすればよいのでしょうか？教えてください。よろしくお願いします。

回答No.1

zap35 · ベストアンサー

以下ではどうでしょうか。
マクロはALT＋F11でVBE画面を開き、「VBAProjectエクスプローラのシート名右クリック」→「挿入」→「標準モジュール」で表示される画面にペーストして下さい。実行はシート画面に戻って、ALT＋F8を押してマクロ一覧からマクロ名を選択して実行します。

Sub Macro1()
Dim cnt As Integer
　For cnt = 1 To ActiveWorkbook.Names.Count
　　ActiveWorkbook.Names(1).Delete
　Next cnt
End Sub

お礼

すっ、スゴイです。
目的としていたことが、バッチリできました。
また、一歩ですがＶＢＡが楽しくなりました。
ありがとうございました。

また、どこかで迷っていたらよろしくお願いいたします。