Custom toolbar button

[JimM]

I've created (or more accurately plagiarised !) the code below to create a custom toolbar button when a specific spreadhseet is opened. It seems to work but not quite how I want it to, problem is that it creates a new toolbar menu with a dropdown and the macro button is within that. Ideally what I would like is the macro button to be directly on the toolbar ie with no dropdown

Any ideas on how I do this

Thanks




Private Sub CreateMyCommandBar()
Dim ocb As CommandBarControl
Dim cbr As CommandBar
Dim objCommandBarButton As CommandBarButton
'reset/delete a previous custom menu before create a new custom menu
Call DeleteMyCommandBar
Set cbr = Application.CommandBars.Add(Name:="MyMenu", Position:=floating) 'Position:=msoBarTop
Set ocb = cbr.Controls.Add(Type:=msoControlPopup, Temporary:=True)
ocb.Caption = "&Menu"
'add a ControlButton to a commandbar

Set objCommandBarButton = ocb.Controls.Add(Type:=msoControlButton, ID:=1)
With objCommandBarButton
.Caption = "Run Menu"
.OnAction = "tabmenu"
.Style = msoButtonIconAndCaption
.FaceId = 2892
.BeginGroup = False
End With

Set ocb = Nothing
Set objCommandBarButton = Nothing
Application.CommandBars("MyMenu").Visible = True

End Sub