Delete cell names on complete workbook

D

deacs

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!
 
D

Don Guillett

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
 
D

deacs

Hi Don,

Thanks for your help. I do have a couple of questions though...
1) Will deleting the names from the cells create a problem with th
formulas I have associated with those names? Basically, the workshee
is a financial statement model and most of the formulas were create
with named cells and I would like to remove the names and just have th
formulas point to the cell location instead of the name. Does your cod
accomplish this?

2) Can you point me to a quick dummy's how-to on how to implement you
code in excel? Unfortunately, I am clueless when it comes to VBA.

Thanks again
 
Top