名前を一括削除するマクロ

こんばんは。

Wendy02です。

>ご迷惑でなければ、該当のファイルをgooのメールに送らせていただいて、見て頂けませんでしょうか？

確か、個人間のやり取りは、ここでは禁止されていたはずなので、申し訳ありませんが、それはできません。

「実行時エラー"1004"：その名前は正しくありません」

やっと、そのエラーを確認できました。私は、勘違いをしていました。それは、マクロのコード側からではなくて、Excelのワークシート側からでした。

マクロでは、たぶん削除できないと思いますので、

Sub test3()
Dim objName As Object
For Each objName In Application.Names
　　 objName.Visible =True
Next
End Sub

としてみて、挿入－名前－定義　で確認して、手動で削除してみてください。

こんばんは。

Wendy02です。

>一括削除できないのは残念ですが、これで乗り切ります。

これは、特殊なエラーのひとつなのです。通常はありません。

今回、ある程度の確信があって、私も回答はしたのですが、さまざまなケースの中で、以下のような推測をしています。

※　登録: マクロ（Names.Add)　　削除: マクロ(Names(i).Delete)
こちらは、たぶん、問題ありません。
（ただし、マクロとしては、関心しません。理由は、Rangeオブジェクトの中に、変数が使えるからです。変数は一時的だから、そちらのほうがよいです。）

※　登録: 手動（ワークシート）　削除: マクロ(Names(i).Delete)
　　For Each in ....Names でも同じ。

こちらは、問題が起こる可能性があります。おそらく、登録のミスか、登録の際の時間的なロスが、トラブルを起こすか、という想像をしています。

#1です

＞特殊な状態になっています。
＞もし、ご迷惑でなければ該当のエクセルファイルをメールで送らせて頂いてみていただく訳に行きませんでしょうか?

私は同じエラーが再現出来なかったので、そのエクセルファイルを拝見してみたいのですが、ここのルール違反になりますので、残念ながらメールでのやり取りは出来ません。
お力になれず、すいませんでした。

こんにちは。

私のほうの実行時エラーは、"1004"ではなく、標準モジュールなので、"438" なのですが、論理的なエラーではなくて、たぶん、Nameオブジェクトのいくつかが、ActiveWorkbookというメンバにないためのエラーだと思います。とても、興味のある現象ですね。

Names オブジェクトは、VBAでは、あまり使われない種類のものです。それは、今回のエラーではお分かりにならなかったかもしれませんが、
Application, Workbook, Sheet と三つのメンバ（配下）にあるものなので、とても使いづらいのです。

オブジェクトブラウザを見ていただければわかります。

おっしゃるコードを、そのまま直してみました。
あまり、現実的なコードではありませんが、以下のようになります。


Sub test1()
Dim objName As Object
For Each objName In Application.Names
　If objName.RefersToRange.Parent.Parent.Name = ActiveWorkbook.Name Then
　　 objName.Delete
　End If
Next
End Sub

ですから、実際は、ActiveWorkbook.Names ではなくて、他のブックをクローズして、ブックを一本にすれば、以下のようにして済むはずです。

Sub test2()
Dim objName As Object
For Each objName In Application.Names
　　 objName.Delete
Next
End Sub

下記をThisWorkbookにコピーで問題なく削除できました。

Sub 名前を一括削除するマクロ()
For Each objName In ActiveWorkbook.Names
objName.Delete
Next
End Sub

質問者さんのマクロと相違するところが無いでしょうか？

For Each ループで使用中のコレクションの内容を消すのがまずいのでは？

後から消してみてください。
Sub test()
Dim i as Long
For i = ActiveWorkbook.Names.Count To 1 Step -1
ActiveWorkbook.Names(i).Delete
Next
End Sub