Symbol in Symbolleiste

Sub Menü()
On Error Resume Next
Dim Cap
Dim ComBar As CommandBar
Dim ComBarBut As CommandBarPopup
Dim intAnzahlButtons As Integer
Dim c As CommandBarButton
Application.CommandBars("Telefon").Delete
Set ComBar = Application.CommandBars.Add(Name:="Telefon", _
temporary:=True)
ComBar.Visible = True
Set ComBarBut = ComBar.Controls.Add(Type:=msoControlPopup)
With ComBarBut
.Caption = "Telefon"
End With
For Cap = 1 To 4
Set c = ComBarBut.Controls.Add
With c
Select Case Cap
Case 1
.Caption = "CSV"
.OnAction = "csv"
Case 2
.Caption = "Übernehmen"
.OnAction = "Format"
Case 3
.Caption = "Zuordnen"
.OnAction = "Quell"
Case 4
.Caption = "Senden"
.OnAction = "Send"
End Select
End With
Next Cap
End Sub