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