Hi

What code can be used to delate all names in a worksheet?

Thanks

Sham

Shamsul;

Sub DeleteNames()
Dim MyName As Name
For Each MyName In ThisWorkbook.Names
MyName.Delete
Next
End Sub

Mark.

More Excel ? www.rosenkrantz.nl or
--------------------------------------------------------------------


"Shamsul Islam" wrote in message
...
Hi

What code can be used to delate all names in a worksheet?

Thanks

Sham

Shamsul,

Some other options

1. Try Jan Karel Pieterse's Name Manager utility. It's a free add-in that
you can download he

http://www.bmsltd.co.uk/MVP/Default.htm

2. Tools Options Transition
Check Transition Navigation Keys

Now:
/RNR

Removes every single name in the workbook! But undo is not available here,
and apparently doesn't work in XL 2003, ,and you need to ensure that you do
toolsoptionstransitionslotus 123 help (not MS menus)

3. Manually one by one, but not a recommendation<g

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Mark Rosenkrantz" wrote in message
...
Shamsul;

Sub DeleteNames()
Dim MyName As Name
For Each MyName In ThisWorkbook.Names
MyName.Delete
Next
End Sub

Mark.

More Excel ? www.rosenkrantz.nl or
--------------------------------------------------------------------


"Shamsul Islam" wrote in message
...
Hi

What code can be used to delate all names in a worksheet?

Thanks

Sham