here are some I use
sub DeleteAllNames() 'ALL sheets
For Each Name In Names
Name.Delete
Next Name
End Sub
Sub DeleteAllNamesBUTprint()
For Each n In Names
If Right(n.Name, 10) < "Print_Area" _
And Right(n.Name, 12) < "Print_Titles" _
Then n.Delete
Next n
End Sub
Sub DeleteAllNames_Umlas()
ExecuteExcel4Macro "SUM(DELETE.NAME(NAMES()))"
End Sub
Sub DeleteHiddenNames()
Dim n As Name
Dim Count As Integer
For Each n In ActiveWorkbook.Names
If Not n.Visible Then
n.Delete
Count = Count + 1
End If
Next n
MsgBox Count & " hidden names were deleted."
End Sub

--
Don Guillett
SalesAid Software

"deacs" wrote in
message ...

I have different cells named through out a workbook in different tabs.
Is it possible to delete all the named cells without going into each
individual cell to delete the name? Thanks!


--
deacs
------------------------------------------------------------------------
deacs's Profile:
http://www.excelforum.com/member.php...fo&userid=2321
View this thread: http://www.excelforum.com/showthread...hreadid=515343