CommandBarButton - Click nur einmal möglich

mit folgendem Problem komme ich nicht klar:

ich habe im Cell-Kontext ein CommandBarButton eingefügt, der beim Click-Ereignis eine ComboBox in das aktive Arbeitsblatt einfügt. Das funktioniert soweit auch, allerdings nur beim ersten Click. Danach nicht mehr. Benutze ich hingegen einen regulären Commandbutton den ich direkt ins Dokument einfüge, so lässt sich die Routine beliebig oft ausführen. Wo liegt mein Fehler ? Nachfolgend der Code:

' *** EventKlasse ***

Public WithEvents cmdbutton As CommandBarButton

Private Sub cmdbutton_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)

Dim ws As Worksheet
Dim oObj As OLEObject
Dim cell As Range

Set ws = ActiveSheet

ws.Activate

Set cell = ActiveCell
Set oObj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _
Link:=False, _
DisplayAsIcon:=False, _
Left:=cell.Left, _
Top:=cell.Top, _
Width:=cell.Width, _
Height:=cell.Height)