commandbar problem über Rechtsklick!!!

Sub combar()
With Application.CommandBars("cell").Controls _
.Add(Type:=msoControlComboBox, Before:=1)
.AddItem Text:="First Item", Index:=1
.AddItem Text:="Second Item", Index:=2
.DropDownLines = 3
.DropDownWidth = 75
.ListHeaderCount = 0
End With
End Sub