Public Sub RemoveCustomMenu()
Dim cbWSMenuBar As CommandBar
On Error Resume Next
Set cbWSMenuBar = CommandBars("Worksheet Menu Bar")
cbWSMenuBar.Controls("Menu").Delete
End Sub
'*******************


"Menu" Is the Name of Menu at my place u can replace it by the name
given by u

with regards

Excel Power


--
ExcelPower
------------------------------------------------------------------------
ExcelPower's Profile: http://www.excelforum.com/member.php...o&userid=30964
View this thread: http://www.excelforum.com/showthread...hreadid=508847