Hello all,

I have a Userform with 10 combobox's named:
larguratapasol1
larguratapasol2
larguratapasol3
larguratapasol4
larguratapasol5
Combo_CorDeFundotapasol1
Combo_CorDeFundotapasol2
Combo_CorDeFundotapasol3
Combo_CorDeFundotapasol4
Combo_CorDeFundotapasol5

What i need is this but on all combobox's:
Private Sub larguratapasol1_Change()
    Select Case larguratapasol1.Value
        Case Is = 60
            Combo_CorDeFundotapasol1.RowSource = ""
        Case Is = 70
            Combo_CorDeFundotapasol1.RowSource = "CoresA70"
        Case Is = 80
            Combo_CorDeFundotapasol1.RowSource = "CoresA80"
    End Select
        
End Sub
Same for 2,3,4,5

Thanks in advance for your help