Option Explicit
Sub TestAdd()
AddCombo Range("K5")
End Sub

Sub AddCombo(rTarget As Range)
With rTarget
ActiveSheet.OLEObjects.Add
(ClassType:="Forms.ComboBox.1", _
Link:=False, _
DisplayAsIcon:=False, _
Left:=.Left, _
Top:=.Top, _
Width:=.Width, _
Height:=.Height).Select
rTarget.Select
End With

End Sub


Patrick Molloy
Microsoft Excel MVP


-----Original Message-----
How do I insert a combobox programmatically into a
specific cell, say B4, that exactly fits the size of the
cell?

Stefan
.