Worksheet combo?

Sub CreateCombobox()
'-----------------------------------------------------------------
Dim oWs As Worksheet
Dim oOLE As OLEObject

Set oWs = ActiveSheet

Set oOLE = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Combo box.1", _
Left:=200, Top:=100, Width:=80, Height:=32)


oOLE.ListFillRange = "A1:A10"

End Sub

'-----------------------------------------------------------------


Forms combo?

With ActiveSheet
.DropDowns.Add(372.75, 46.5, 300, 50).Select
Selection.ListFillRange = "B1:B3"
End With

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Paul" wrote in message
...
Hello All - I need to create a Combo Box in code. What is the code to
create
a Combo Box?

Thanks
Paul