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"

--
Regards,
Tom Ogilvy


"Shamsul" wrote in message
...
How do you count the number of Checkboxes in a Userform?