Excel - Llenar varios combobox

Tengo 10 combobox que deben cargar la misma lista (materiales ) porque es un formato de compra, a la par de estos cambiara un label con el codigo de estos materiales hasta aqui todo bien pero como hago un codigo de bucle que me llene los diez combobox

yo estaba pensando algo asi pero no se si me puedan ayudar con este codigo:

Dim combo As String
Dim cell As Integer

cell=1

For combo= 1 To 10
With combobox(combo)
Do While cells(cell,1).value <> ""
.add item activecell.value
cell=cell+1
Loop
End With
Next

Aquí va una idea...

Dim cell As Integer
Dim C As Object

cell = 1

Do While Cells(cell, 1).Value <> ""
ComboBox1.AddItem Cells(cell, 1).Value
cell = cell + 1
Loop
For Each C In UserForm1.Controls
If InStr(1, LCase(C.Name), "combo") > 0 Then
C.List = ComboBox1.List
End If
Next

Set C = Nothing

Saludos desde Baires, JuanC

Dim cell As Integer
Dim C As Object

cell = 1

combobox1.clear

Do While Cells(cell, 1).Value <> ""
ComboBox1.AddItem Cells(cell, 1).Value
cell = cell + 1
Loop
For Each C In UserForm1.Controls
If InStr(1, LCase(C.Name), "combo") > 0 Then
C.List = ComboBox1.List
End If
Next

Set C = Nothing