Combo Box created in code
 

Hello All €“ I need to create a Combo Box in code. What is the code to create
a Combo Box?

Thanks
Paul

Combo Box created in code
 

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

Combo Box created in code
 

Bob thanks for the info. However, I developed the following code using the
form tool. The only problem is when the code runs; an additional €˜Sub - End
Sub line of code is created.
Here is the code:
Private Sub UserForm_Initialize()

ComboBox1.ColumnCount = 5
ComboBox1.RowSource = "a1:e4"
ComboBox1.ControlSource = "a6"
'Place the ListIndex into cell a6
ComboBox1.BoundColumn = 0

End Sub

And here is the additional code line that is return after the above code is
finished.

Private Sub ComboBox1_Change()

End Sub

What changes are required to prevent the additional lines of code?

Thanks Again
Paul

"Bob Phillips" wrote:

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