脳みそに入れたくないから、ここでメモ帳をしているだけ…
Sub delErrNames() Dim n As name Dim bk As Workbook Set bk = ThisWorkbook For Each n In bk.Names If n.RefersTo = "=#NAME?" Then n.Visible = True End If Next End Sub