MenuToExcell

Sub Auto_open()
'Aggiunge il menu

Set myMenuBar = CommandBars.ActiveMenuBar
Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True)
newMenu.Caption = "&Prova"
Set ctrl1 = newMenu.CommandBar.Controls .Add(Type:=msoControlButton, Id:=1)
With ctrl1
.Caption = "&Guida di Prova"
.TooltipText = "Aiuto"
.Style = msoButtonCaption
.OnAction = "Aiuto"'Nome della sub da lanciare
End With
End Sub