contar checks seleccionados...

[vbx3m]

Esta es otra forma de hacerlo:

Código:

Dim check As Object
c = 0
For Each check In Controls
    If TypeOf check Is CheckBox Then
        If check.Value = 1 Then c = c + 1
     End If
Next
MsgBox "Seleccionados " & c