Adding Popup Button to Main Menu Bar

[Premanshu]

Hi,

I have made some macro and now want to add a Popup button for it in the Main Menu bar.
I tried below code, but this is not working.

Set cbMainMenuBar = Application.CommandBars("Worksheet Menu Bar").Controls("Tools")

Set cbcCutomMenu = cbMainMenuBar.Controls.Add(Type:=msoControlPopup, Before:=5)
cbcCutomMenu.Caption = "My_Macro"


though when i am trying to add a Popup button directly to Main Menu bar that's working with below code.

Set cbMainMenuBar = Application.CommandBars("Worksheet Menu Bar")

Set cbcCutomMenu = cbMainMenuBar.Controls.Add(Type:=msoControlPopup, Before:=5)
cbcCutomMenu.Caption = "My_Macro"


can anyone suggest me how can I add My_Macro button to the Tools Menu in Main Menu Bar.


Regards
Premanshu.

 

[RoryA]

What exactly do you mean when you say it's not working?

 

[Premanshu]

when i run the macro a button should get added to the Tools menu in the Main Menu Bar like other button which already exist (i.e Share Workbook, Protection, Formula Auditing....etc)

but this is not happening after running the macro.

 

[RoryA]

It works for me - are you getting an error?

 

[Premanshu]

ok this time i got it....
i had incorrectly defined the variable....
sorry for the unnecessary trouble...
and thank you So much >


Regards
Premanshu.