Attribute VB_Name = "Module1" Sub Delete_Names() Dim n As Name On Error Resume Next For Each n In ThisWorkbook.Names n.Visible = True n.Delete Next n End Sub