Hi Monique,

supposing that your comboboxes are on a userform and your sub is in
other module than in class module for the userform, you should try
this:

Private Sub FillOrders(intLa As Integer)
with userform1
..cmbISBN1.RowSource = "Pinder!E2:E" & intLa
..cmbISBN2.RowSource = "Pinder!E2:E" & intLa
..cmbISBN3.RowSource = "Pinder!E2:E" & intLa
..cmbISBN4.RowSource = "Pinder!E2:E" & intLa
..cmbISBN5.RowSource = "Pinder!E2:E" & intLa
end with
End Sub

change userform1 to appropriate name.

Did it help?

Regards,
Ivan