Populate multiple comboboxes with the same listfillrange

[Xalova]

So i have multiple comboboxes in a worksheet. Is there a way i can fill all of them with the same listfillrange? The code for that for one combobox would be:

Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Set col = Sheets("verrechnungssätze").ListObjects("Mitarbeiter").ListColumns(1)
myrng = "Verrechnungssätze!" & col.DataBodyRange.Address(0, 0)
Me.ComboBox1.ListFillRange = myrng
End Sub

 

[diddi]

for row=1 to 6
        me.controls("Combobox" & row).listfillrange = myrng
next row