Maybe try something like this:

[VBA]Sub Auto_Open()
Dim myMainMenuBar As CommandBar
Dim myCustomMenu As CommandBarControl
Dim myTempMenu As CommandBarControl


On Error Resume Next
Application.CommandBars.ActiveMenuBar.Controls("This name").Delete
On Error GoTo errorhandler
Set myMainMenuBar = Application.CommandBars.ActiveMenuBar


Set myCustomMenu = myMainMenuBar.Controls.Add(Type:=msoControlPopup, _
before:=3)
myCustomMenu.Caption = "This name"
Set myTempMenu = myCustomMenu.Controls.Add(Type:=msoControlButton)
With myTempMenu

.Caption = "Whatever"
.OnAction = "Macro1"
End With

Set myTempMenu = myCustomMenu.Controls.Add(Type:=msoControlButton)
With myTempMenu

.Caption = "Something else"
.OnAction = "Macro2"
End With

Set myTempMenu = myCustomMenu.Controls.Add(Type:=msoControlButton)
With myTempMenu

.Caption = "Another thing"
.OnAction = "Macro3"
End With

'repeat these as often as you wish

Exit Sub
errorhandler:
MsgBox "Sorry there's been an error " & Err.Description, vbCritical
End Sub[/VBA]