fill default value

[richsoul]

i have a sub fill that add a default value to a second combo box when a value is added to the first combo box in a row. i would like to add default values to all the combo boxes in that row when the first data is added. here is the code.

Private Sub ComboBox1_Change()
Set mycontrol = ComboBox149
Call fill(3)
End Sub

-------

Sub fill(rn)
CR = rn - 1
mycontrol.ListFillRange = "H160:H175"
mycontrol.Value = "rectangle"
End Sub

-------

i would like to add something like this

Private Sub ComboBox1_Change()
Set mycontrol = ComboBox149
Call fill(3)
Set mycontrol1 = ComboBox502
Call fill(3)
End Sub