Dim i As Long
Dim j As Long
Dim oChB As CheckBox
Range("G1").ClearContents
j = 0
For i = 0 To Me.Controls.Count - 1
If VBA.LCase(VBA.Left(Me.Controls(i).Name, 3)) = "chb" Then
j = j + 1
If Me.Controls(i) Then
If Range("G1") <> "" Then
Range("G1") = Range("G1") & ","
End If
Range("G1") = Range("G1") & j
End If
End If
Next