Steph, this code assumes you only have 15 combos on your
form - if you have more, you should put those 15 in a
frame and loop through the frame's controls rather than
the forms

Rgds

Rog


Dim ctl As Control

For Each ctl In me.Controls
If TypeName(ctl) = "ComboBox" Then
ctl.List =Price.Range("LMU").Resize(Price.Range
("LMU").Rows.Count - 1).Value
End If
Next

-----Original Message-----
Hi. I have a form with 15 comboboxes. I populated the
combo box list with
the following code:

Userform1.ComboBox1.List =
Price.Range("LMU").Resize(Price.Range("LMU").Rows .Count -
1).Value

I copied the above code 15 times, because the list for
each box is exactly
the same. Can I read the comboboxes into an array, and
then populate the
aray with a single statement as above?

Thanks!


.