looping over combobox names

[lottesfog]

Hi,
I've got 20 comboboxes in a sheet, named CmbGarmentID1, CmbGarmentID2 etc. They've all got to have the same items listed. Currently, the code doing this is:

Do Until Sheets("ListOfGarments").Range("B" & i) = "" Or i > i_max
            Sheets("GarmentMeasts").CmbGarmentID1.AddItem (Sheets("ListOfGarments").Range("B" & i) & " " & Sheets("ListOfGarments").Range("D" & i))
            Sheets("GarmentMeasts").CmbGarmentID2.AddItem Sheets("ListOfGarments").Range("B" & i) & " " & Sheets("ListOfGarments").Range("D" & i)
            Sheets("GarmentMeasts").CmbGarmentID3.AddItem Sheets("ListOfGarments").Range("B" & i) & " " & Sheets("ListOfGarments").Range("D" & i)
            Sheets("GarmentMeasts").CmbGarmentID4.AddItem Sheets("ListOfGarments").Range("B" & i) & " " & Sheets("ListOfGarments").Range("D" & i)
            Sheets("GarmentMeasts").CmbGarmentID5.AddItem Sheets("ListOfGarments").Range("B" & i) & " " & Sheets("ListOfGarments").Range("D" & i)
            Sheets("GarmentMeasts").CmbGarmentID6.AddItem Sheets("ListOfGarments").Range("B" & i) & " " & Sheets("ListOfGarments").Range("D" & i)
            Sheets("GarmentMeasts").CmbGarmentID7.AddItem Sheets("ListOfGarments").Range("B" & i) & " " & Sheets("ListOfGarments").Range("D" & i)
            Sheets("GarmentMeasts").CmbGarmentID8.AddItem Sheets("ListOfGarments").Range("B" & i) & " " & Sheets("ListOfGarments").Range("D" & i)
            Sheets("GarmentMeasts").CmbGarmentID9.AddItem Sheets("ListOfGarments").Range("B" & i) & " " & Sheets("ListOfGarments").Range("D" & i)
            Sheets("GarmentMeasts").CmbGarmentID10.AddItem Sheets("ListOfGarments").Range("B" & i) & " " & Sheets("ListOfGarments").Range("D" & i)
            Sheets("GarmentMeasts").CmbGarmentID11.AddItem Sheets("ListOfGarments").Range("B" & i) & " " & Sheets("ListOfGarments").Range("D" & i)
            Sheets("GarmentMeasts").CmbGarmentID12.AddItem Sheets("ListOfGarments").Range("B" & i) & " " & Sheets("ListOfGarments").Range("D" & i)
            Sheets("GarmentMeasts").CmbGarmentID13.AddItem Sheets("ListOfGarments").Range("B" & i) & " " & Sheets("ListOfGarments").Range("D" & i)
            Sheets("GarmentMeasts").CmbGarmentID14.AddItem Sheets("ListOfGarments").Range("B" & i) & " " & Sheets("ListOfGarments").Range("D" & i)
            Sheets("GarmentMeasts").CmbGarmentID15.AddItem Sheets("ListOfGarments").Range("B" & i) & " " & Sheets("ListOfGarments").Range("D" & i)
            Sheets("GarmentMeasts").CmbGarmentID16.AddItem Sheets("ListOfGarments").Range("B" & i) & " " & Sheets("ListOfGarments").Range("D" & i)
            Sheets("GarmentMeasts").CmbGarmentID17.AddItem Sheets("ListOfGarments").Range("B" & i) & " " & Sheets("ListOfGarments").Range("D" & i)
            Sheets("GarmentMeasts").CmbGarmentID18.AddItem Sheets("ListOfGarments").Range("B" & i) & " " & Sheets("ListOfGarments").Range("D" & i)
            Sheets("GarmentMeasts").CmbGarmentID19.AddItem Sheets("ListOfGarments").Range("B" & i) & " " & Sheets("ListOfGarments").Range("D" & i)
            Sheets("GarmentMeasts").CmbGarmentID20.AddItem Sheets("ListOfGarments").Range("B" & i) & " " & Sheets("ListOfGarments").Range("D" & i)
        i = i + 1
     Loop

It works,. but it's clunky.

Is there a way of looping over the names of the combo boxes? I've tried looping over j and coding things like

"Sheets("ListOfGarments").Range("D" & i)
            Sheets("GarmentMeasts").CmbGarmentID" & j & ".AddItem"

but so far, have not got it to work. Any suggestions would be most welcome.

Lotte