Este fórum está sendo desativado

[Handred]

Boa tarde,

Estou criando uma planilha onde há vários checkbox, porém não queria fazer uma macro para cada um quando fosse clicado, e sim que ele informasse quais estão clicados.

Me perdoem a ignorância, mas tentei utilizar o mesmo método que utilizo para sheets

for a = 1 to cont (exemplo)

if checkbox(A).value = true then
msgbox "OK"
end if

obrigado.

[laennder]

Segue código e arquivo em anexo

Código: Selecionar todos

Option Explicit

Private Sub btnOK_Click()
Dim cb As MSForms.CheckBox
Dim sCBchecked As String
Dim i As Long

For Each cb In frmContainerCheckBoxes.Controls
    If cb.Value Then
        sCBchecked = sCBchecked & Chr(13) & cb.Name
        i = i + 1
    End If
Next cb

MsgBox "Você selecionou " & i & " checkbox(es)" & sCBchecked

End Sub