Puedes hacer esto
Código vb:
Ver originalPrivate Sub cmdActivarTodas_Click()
Dim Ctrl As Control
Dim F As Integer
For F = 1 To 3
For Each Ctrl In Me.Controls
If Ctrl.Name = "Check" & F Then Ctrl.Value = 1: Exit For
Next Ctrl
Next F
End Sub
PD: ops, no se si servira en excel