Option Explicit
Private c As New Collection
Private Sub UserForm_Initialize()
Dim ccc As CommonComboChange, cb As MSForms.ComboBox
For Each cb In Controls
If Val(Right(cb.Name, 2)) > 9 And Val(Right(cb.Name, 2)) < 31 Then
Set ccc = New CommonComboChange
ccc.Init Me, cb
c.Add ccc
End If
Next
End Sub
Public Sub MultiComboChange(cb As MSForms.ComboBox)
MsgBox "You clicked " & cb.Text & " from " & cb.Name
End Sub