【Excel　名前の定義】「名前"○○○"は既に存在します。この名前にする・・・」のメッセージ表示を解決する方法

ExcelのVBAを使ってシートのコピーのようなことをしていたら突然以下のようなメッセージが出だして対応に困ったことがありました。

「名前"○○○"は既に存在します。この名前にする場合には、［はい］をクリックします。移動またはコピーを行うために"○○○"の名前を変更する場合には［いいえ］をクリックします。」

今回は、その対応方法の説明になります。

内容的には、古いExcelを使用している場合に、発生するようなのですが、そのExcelに「名前の定義」がされている時にシートのコピーを行うと発生するということです。

自分自身、「名前の定義」などというものを意識的に設定した覚えはなかったのですが、そのファイルが何かを流用したようなファイルだったか、それとも自動的に名前が付けられるような場合もあるのかですが、いつの間にかかなりの数の名前が設定されていました。

結果的には、この「名前の定義」の名前自体が不要であれば削除してあげればいいというようなものです。

具体的には、

１．まずは、

メッセージが出なくなるまで「はい」をクリックする

２．以下のように、

「数式」タブの「名前の管理」をクリックすると、名前の管理用ウインドウが表示されますのでそこにある不要な名前（#REF!などと表示のあるもの）を削除する

とすることで、メッセージが出なくなります。

削除に際しては、プリントエリアを指定する「Print_Area」とタイトル行と列を指定する「Print_Titles」は削除せずに残します。

ただし、まれにそれを行ってもまだ表示される場合があります。

これは、VBAなどで、

「名前の定義」を非表示にされている場合がある

ということのようなのですが、その場合には、「名前の定義」を表示させてやらなければなりません。

VBAを使用して非表示の「名前の定義」を表示させる方法は以下のようになります。

Sub VisibleName()
    Dim n   As Name
    
    For Each n In ActiveWorkbook.Names
        n.Visible = True
    Next
End Sub

これをVBA側の標準モジュールなどに記載して実行してやれば「名前の定義」に名前が表示されるようになります。

表示されたら同様に不要な定義を削除すればメッセージが表示されなくなります。

参考にさせてもらったURLは以下になります。

参考URL：