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.
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.