Hi,
Try this,

Dim ctl As Object
For Each ctl In userform1.Controls

'if within userform's codmodule
'For Each ctl In me.Controls

If TypeName(ctl) = "CheckBox" Then
If ctl.Value Then MsgBox ctl.Name & " : marked"
End If
Next


Regards,
Shah Shailesh
http://members.lycos.co.uk/shahweb/


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!