VBA素人なんですが、教えて…

for文とCaseって組み合わせて出来ないの？
うまく作動しないし、脳みそが出る

Microsoft365 business


Private Sub cmb_mda_Change()
Dim i As Integer, s As Integer
With Me

i = .cmb_mda.ListIndex

For s = 0 To 30

Select Case i

Case s
cmb_color.RowSource = "基材マスター!V" & "1" & s
s = s + 1

End Select

Next s

End With
End Sub