Userform com varias CheckBox

"Claudio Sepúlveda" escribió en el mensaje

Tengo alrededor de 100 checkbox en un formulario. Hay alguna rutina que
pueda colocar todas verdaderas o falsas sin ir una por una.

Hola Claudio,

Prueba los siguientes codigos:

Sub Marca()
Dim i As Integer
For i = 0 To Me.Controls.Count - 1
If UCase(Me.Controls(i).Name) Like "CHECKBOX*" Then
Me.Controls(i).Value = True
End If
Next i
End Sub

Sub DesMarca()
Dim i As Integer
For i = 0 To Me.Controls.Count - 1
If UCase(Me.Controls(i).Name) Like "CHECKBOX*" Then
Me.Controls(i).Value = False
End If
Next i
End Sub

Un saludo,
Juan