Excelの名前の定義が削除できません

Question

前提・実現したいこと

ダウンロードしてきたブックの中のシートを新しいブックにコピーしたいが、コピーするたびに名前の定義についてのエラーメッセージが出るので、名前の定義そのものを削除したい。
同じようなシートをコピーする作業がこれからも発生するので、マクロで削除できるようにしたい。

発生している問題・エラーメッセージ

移動またはコピーする数式に名前a666665が含まれていますが、この名前は有効なセル範囲またはExcelで内部的に使用されている名前と重複するため、変更する必要があります。

「a666665」は「a666666」、「a6666667」等別の数字のものもあり、一枚のシートにこのような名前定義がたくさんあるようです。

試したこと

1.まず「名前の管理」を見ましたが、print_areaしか入っていませんでした。
2.「名前」が非表示になっているのかと思い次のコードを実行してみました。

 Sub 名前表示()
    Dim nm As Object
    For Each nm In ActiveWorkbook.Names
        nm.Visible = True
    Next
End Sub

しかしa666665という名前の定義は表示されませんでした。

3.とにかく削除することを考えて

 Sub 名前削除()
    Dim nm As Object
    For Each nm In ActiveWorkbook.Names
        nm.delete
    Next
End Sub

としてみましたが、print_areaが消えただけでやはりコピーのたびにエラーが発生します。

補足情報（FW/ツールのバージョンなど）

windows10、Office365です

Answer 1

シートの方にもNamesがいます。そっちかもしれません。

    Dim nm As Name, ws As Worksheet

    For Each nm In ActiveWorkbook.Names
        Debug.Print nm.Name
        nm.Delete
    Next
    
    For Each ws In ActiveWorkbook.Worksheets
        For Each nm In ws.Names
            Debug.Print nm.Name
            nm.Delete
        Next
    Next

Comments

[pia]

いただいたコードを動かしてみたのですが変わりがなく、F8でステップごとに実行してみたところ、「nm」がずっとNothingのまま終了していました。
ただ、その後ファイルを保存し、再度開いてシートのコピーを試したところ、今度はエラーが出ませんでした。
元のコードでも試してみたのですが、「名前の定義を削除したあと、一度保存して開き直す」という作業を行わないと、削除したという扱いにならないようです。
ありがとうございました。