Only Allow 1 Combo Box To Be Fill

Hi calvinle

Perhaps something like this (untested)

Dim Cnt As Long, i As Long
  Cnt = 0
  For i = 1 To 5
    If Me.Controls("ComboBox" & i).ListIndex <> -1 Then
      Cnt = Cnt + 1
    End If
  Next i

  If Cnt = 1 Then
    MsgBox "Good"
  Else
    MsgBox "Only 1 allowed"
  End If