Excel シートコピー時のエラー回避（その2）

以前、紹介したExcelのシートコピー時のエラー回避でも
「名前の重複」が消えないことが分かり、
その消し方を紹介致します。

Excelの画面で「Alt」+「F11」を同時にキーボードを押します。
下記の画面が表示されます。

「Alt」+「I」+「M」を同時にキーボードを押します。
すると下記の画面が表示されます。

ここに以下を入力します。
Public Sub VisibleNames()
    Dim name As Object
    For Each name In Names
        If name.Visible = False Then
            name.Visible = True
        End If
    Next
    MsgBox "すべての名前の定義を表示しました。", vbOKOnly
End Sub

Excelの画面に戻り
「表示」、「マクロ4の表示」をクリックします。

「VisibleNames」をクリックし、「実行」をクリックすます。

















あとは、「数式」、「名前の管理」をクリックすると

隠れていた無名の名前が表示されますので、選択して、削除すれば、
終わりです。

意外に簡単ですね。

Y.I