Sub DeleteRangeNames()Dim rName As Name For Each rName In ActiveWorkbook.Names rName.Delete Next rNameEnd Sub