You don't need such an elaborate code to create your control. Here's a
cleaner version...
Sub indrajit()
With Application
On Error Resume Next
.CommandBars("Sam Mathai Chacko").Delete
With .CommandBars.Add("Sam Mathai Chacko", 4)
.Visible = .Enabled
Hi
Hope it will help you
http://www.ozgrid.com/VBA/custom-menus.htm
Regards
Rajan. Verma
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of INDRAJIT SAHA
Sent: Jan/Sun/2012 02:49
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Want