Excel AvanÇado

[Guest - ringo -]

Bom dia.

Alguém poderia me ajudar.

Tenho varios checkbox (checkbox1,checkbox2,checkbox3.....checkbox10)

Pergunto: alguém conhece alguma função para apagar ( passar para Falso)

todos os checkbox!

Eu pensei em algo assim, mas não deu certo.

a=1 to 100

checkbox(A).value=false

next

Se alguém souber. me ajude

grato

[RINGO]

limpa todos os checkbox

Achei a resposta

Private Sub CommandButton2_Click()

Dim chkb As Control

For Each chkb In Me.Controls

If chkb.Value = True Then

chkb.Value = False

End If

Next

End Sub

Se alguém souber outra forma de fazer, por favor me informe

grato

[RINGO]

OU TAMBÉM PODE USAR:

For Each Control In UserForm1.Controls

Control.Value = False

Next Control