ActiveX ComboBox erstellen - befüllen!

Eine ComboBox aus Steuerelemente (ActiveX) soll in der gerade aktiven Zelle erstellt und mit einem Wert bzw. mehreren Werten befüllt werden.

Option Explicit
Public Sub Test()
    Dim objXbox As Object
    With Tabelle1 ' Anpassen 
        Set objXbox = .OLEObjects.Add(ClassType:="Forms.ComboBox.1")
        With objXbox
            .Object.AddItem ("Teil1")
            .PrintObject = False
            .Left = ActiveCell.Left
            .Top = ActiveCell.Top
            .Width = ActiveCell.Width
            .Height = ActiveCell.Height
        End With
    End With
End Sub
Public Sub Test_1()
    Dim objXbox As Object
    Dim varArr As Variant
    varArr = Array("Teil1", "Teil2", "Teil3", "Teil4")
    With Tabelle1 ' Anpassen 
        Set objXbox = .OLEObjects.Add(ClassType:="Forms.ComboBox.1")
        With objXbox
            '.Object.AddItem ("Teil1") 
            .Object.List = varArr
            .PrintObject = False
            .Left = ActiveCell.Left
            .Top = ActiveCell.Top
            .Width = ActiveCell.Width
            .Height = ActiveCell.Height
        End With
    End With
End Sub