Hallo Frank,
oder eine einzelne Box mit Inhalt:
Sub Einzelne_Box()
Dim ix As Integer
Dim objBox As OLEObject
Set objBox = ActiveSheet.OLEObjects.Add(Classtype:= _
"Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, _
Left:=ActiveSheet.Cells(11, 3).Left, _
Top:=ActiveSheet.Cells(11, 3).Top, _
Width:=80.75, _
Height:=17.25)
objBox.ListFillRange = "A1:A10"
End Sub
Gruß
fedjo