Private Sub Categorybox_Change()
Dim r As Integer
Dim c As Integer
c = 2
r = 2
x = 0
TypeBox.Clear
Do While Cells(r, c).Value < categorybox.Value
r = r + 1
Loop
Do While Cells(r, c) = categorybox.Value
TypeBox.AddItem Cells(r, c + 1).Value
r = r + 1
Loop
End Sub

You don't gain anything significant from putting them in an array first.

--
Regards,
Tom Ogilvy


"musictech" wrote
in message ...

Having a bit of trouble with the following code. I am attempting to
create a drop down box that contains the contents of a list of cells.
The cells aren't in a fixed location and there could be a different
number of items depending on another list box. So the array can't be a
fixed size. How can I add the items I want to the array and then
display them in the combobox?

Thanks


Code:
--------------------
Private Sub Categorybox_Change()
Dim typ() As Integer
Dim x As Integer
Dim r As Integer
Dim c As Integer
c = 2
r = 2
x = 0

Do While Cells(r, c) < categorybox.Value
r = r + 1
Loop
Do While Cells(r, c) = categorybox.Value
ReDim typ(x + 1)
typ(x) = Cells(r, (c + 1))
x = x + 1
r = r + 1
Loop
Typebox.List = typ()
End Sub

--------------------


--
musictech
------------------------------------------------------------------------
musictech's Profile:
http://www.excelforum.com/member.php...o&userid=24851
View this thread: http://www.excelforum.com/showthread...hreadid=389951