名前のvba1004エラー構文が正しくありません

エラーを解決することはできませんが、このマクロを試してワークブックから名前を削除してください.

Public Sub Delete_Names()
バリアントとしての薄暗い
ActiveWorkbook.Names.Count<1の場合
MsgBox "隠し範囲"&_
ThisWorkbook.Name&_
「見つかりません」、vbInformation、ThisWorkbook.Name
それ以外の場合
Dim i、j As Integer:j= ActiveWorkbook.Names.Count
エラー時に次を再開
ActiveWorkbook.Namesの各Nに対して
N.削除
i= i + 1
次のN
MsgBox i&"名前付き範囲が削除されました:"&j
Ifを終了
サブの終了

ゴード

特定の名前が無効であることに反対していると思います.
何年も前に名前が壊れていて、回避するのに時間がかかったのを覚えているようです.

失敗した場合、DELNAME.Nameとは何ですか?

試すことができます

Dim lName As Long
lName= ActiveWorkbook.Names.Count To 1 Step-1
の場合 ActiveWorkbook.Names(lName).Delete
次へ

しかし、それでも同じ問題が発生する可能性があります.

Dim lName As Long
エラー時に次を再開
lName= ActiveWorkbook.Names.Count To 1 Step-1
の場合 ActiveWorkbook.Names(lName).Delete
次へ

ActiveWorkbook.Names.Count>0の場合
MsgBox ActiveWorkbook.Names.Count&"名前は削除されていません.例:"&ActiveWorkbook.Names(1).Name
終了する場合

私が最終的に問題を修正した方法は、ワークシートの