Private Sub CommandButton1_Click()
Dim oCtr As Control
Dim strComposite As String
  For Each oCtr In Me.Controls
    Select Case TypeName(oCtr)
      Case "CheckBox"
        If oCtr.Value = True Then
          If strComposite = vbNullString Then
            strComposite = oCtr.Name & " is checked"
          Else
            strComposite = strComposite & ", " & oCtr.Name & " is checked"
          End If
        End If
      End Select
  Next oCtr
  'Replace this statement with code that writes the string variable to your bookmark.
  MsgBox strComposite
End Sub