one way of selecting 6 checkboxes

VB Code:
  1. Dim c As Control

  2.     Dim i As Integer

  3.     For Each c In Me

  4.         i = i + 1

  5.         If i = 6 Then Exit For

  6.         c.Value = vbChecked

  7.     Next c