Public Sub AddMenuItem()
Dim cbWSMenuBar As CommandBar
Dim cbc As CommandBarControl
Set cbWSMenuBar = Application.CommandBars("Worksheet Menu Bar")
Set cbc = cbWSMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True)
cbc.Tag = "Dashboard"
With cbc
.Caption = "&Dashboard"
With .Controls.Add(Type:=msoControlButton, Temporary:=True)
.Caption = "Reporting"
.OnAction = "Reporting"
.Tag = "Item1"
End With
With .Controls.Add(Type:=msoControlButton, Temporary:=True)
.Caption = "Email versenden"
.OnAction = "EmailSenden"
.Tag = "Item 3"
End With
With .Controls.Add(Type:=msoControlButton, Temporary:=True)
.Caption = "Suchen"
.OnAction = "Mitarbeitersuchen"
.Tag = "Item 3"
End With
End With
End Sub