VBA Combobox mit schleife füllen

[toto18]

Guten Abend Liebe Clever Excel Profis,

ich habe mehrere von einander abhängige Comboboxen.

Code:

Private Sub CB_Kat1_Click()
With CB_Kat1
If .Text = "" Then Exit Sub
CB_S1.RowSource = Range((.Text)).Name
End With
End Sub

Und über diesen code fülle ich aus Combobox1 ( CB_Kat1 ) die zweite Combobox (CB_S1) dieses brauche ich jetzt bis zu 60 CB_Kat1 bis 60 und CB_S2 bis 60
Gibt eine Möglichkeit diese alle per schleife zu füllen ?

[snb]

Verzichte auf rowsource und additem zum Befüllen einer Combobox.

[toto18]

Und was wäre da die Klügste lösung ?