Linked Cell

habe versucht die linked cell mit dem unten stehenden code zuzuordnen. das funktioniert aber nicht. :(

Sub combo()
Dim oObj As OLEObject
Dim oCbox As MSForms.ComboBox
Dim cell As Range
Set oObj = ActiveSheet.OLEObjects.Add( _
ClassType:="Forms.ComboBox.1", _
Link:=False, _
DisplayAsIcon:=False, _
Left:=243, _
Top:=75, _
Width:=72, _
Height:=18)
Set oCbox = oObj.Object
oCbox.LinkedCell = Range("A1")
oObj.ListFillRange = Range("B1:B3").Address
oCbox.ListIndex = 0
End Sub

kann mir mal bitte jemand sagen, was daran falsch ist.

danke
hendrik