Excelシートコピー時の既に存在する警告を消す

シートコピーでごみがあるため重複警告が沢山でる。
そんなときにはCtrl+F3でごみ名前を消すのだがまだ残っている。
マクロで非表示ごみ名前も出てくるように出来る。

エクセル2013でシートコピー時の「既に存在...」エラーを除去するための
非表示になっている名前を表示する

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

コレ実行後にCtrl+F3で名前を表示するとごみが盛りだくさん。
コレを消す！