Hi,
If you are not using the 'Name Manager', it can easily be done as follows:
Sub DeleteAllNamedRanges()
'This deletes all Named Ranges
Dim myNamedRange As Name
Dim iCount As Long
For Each myNamedRange In ActiveWorkbook.Names
myNamedRange.Delete
iCount = iCount + 1
Next myNamedRange
MsgBox iCount & " Named Ranges were deleted."
End Sub
To delete a specific 'Named Range':
Sub DeleteOneNamedRange()
Names("aaaa").Delete
End Sub
If you are using the 'Name Manager', there must be a way to identify the 'Named Ranges' that you want to eliminate.
Lewis
Bookmarks