Sub DeleteObj() Dim objName As Name For Each objName In ActiveWorkbook.Names objName.Delete Next objName End Sub