Counting checkboxes

[Shamsul]

How do you count the number of Checkboxes in a Userform?

 

[Tom Ogilvy]

Dim ctrl as Control
Dim icnt as long
icnt = 0
for each ctrl in Userform1.Controls
if typeof ctrl is MSForms.CheckBox then
icnt = icnt + 1
end if
Next
msgbox "there are " & icnt & " checkboxes"