Sub a()
Dim OLEObj As OLEObject
Dim ComboBox As msforms.ComboBox
Set OLEObj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=700, Top:=100, Width:=328, Height:=16)
Set ComboBox = ActiveSheet.ComboBox1
End Sub