hello, im trying to make a userform that when an item from the command button (cbname) is clicked, the labels will have captions that change accordingly.
here is what my form looks like, im trying to change labels 26 to 32. cbname is the combobox name. when i run my code, other labels will be changed. how do i specify that i want labels 26-32 to be the ones that change?
photo1632397634 (1).jpeg

Private Sub cbname_Change()
Call chgrank
End Sub

Sub chgrank()
i = 1
If cbname.Value = "Alex" Then Set rg = Range("K2:K9")
If cbname.Value = "Bob" Then Set rg = Range("L2:L9")
If cbname.Value = "Charles" Then Set rg = Range("M2:M9")
If cbname.Value = "Dan" Then Set rg = Range("N2:N9")
If cbname.Value = "Eddy" Then Set rg = Range("O2:O9")
If cbname.Value = "Fred" Then Set rg = Range("P2:P9")
If cbname.Value = "George" Then Set rg = Range("Q2:Q9")
If cbname.Value = "Alice" Then Set rg = Range("K14:K20")
If cbname.Value = "Betty" Then Set rg = Range("L14:L20")
If cbname.Value = "Christy" Then Set rg = Range("M14:M20")
If cbname.Value = "Donna" Then Set rg = Range("N14:N20")
If cbname.Value = "Ellen" Then Set rg = Range("O14:O20")
If cbname.Value = "Florence" Then Set rg = Range("P14:P20")
If cbname.Value = "Grace" Then Set rg = Range("Q14:Q20")
For Each ctrl In Me.Controls
If TypeName(ctrl) = "Label" And ctrl.Name = "Label2" & CStr(i - 1) Then
ctrl.Caption = rrank(i).Value
i = i + 1
End If
Next
End Sub