Checkbox's contar

[AbaClar]

Numa pequena aplicação do excel com userform + listview, pretendo contar os checkbox's (yes).
Já procurei exemplos que me pudessem auxiliar mas não encontrei ou não soube entender.
Será que me podem ajudar?
Obrigado

[webmaster]

AbaClar,

Use isto:

Código: Selecionar todos

Private Sub UserForm_Initialize()
    MsgBox ContaCheckbox
End Sub

Public Function ContaCheckbox() As Long
    Dim contador As Long
    For Each controle In Me.Controls
        If TypeName(controle) = "CheckBox" Then
            contador = contador + 1
        End If
    Next controle
    
    ContaCheckbox = contador
End Function

Att