Private Sub Workbook_Open()
Dim Cdc As CommandBarControl
    With Application.CommandBars("Help")
        Set Cdc = .Controls.Add( Type:=msoControlButton, _
            ID:=2950, _
            Before:=.Controls.Count + 1, temporary:=True)
    End With
    With Cdc
        .FaceId = 2111
        .Caption = "Kalender"
        .BeginGroup = True
        .OnAction = "CreateCalendar"
        .Visible = True
    End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.CommandBars("Help").Controls("Kalender").Delete
End Sub
