Dim ctl As Control
Dim A As Long
A = 0
For Each ctl In UserForm1.Controls
If TypeOf ctl Is MSForms.CheckBox Then
If ctl.Value = True Then A = A + 1
End If
Next
MsgBox A
I know. I apologize. When I refreshed to check and see if i recieved any responses i didn't see it posted. I was in a bit of a hurry when I psted it, I thought maybe i forgot to submit.