Checkbox in userform

[Peterso]

I have 5 checkboxes in a userform and I want to set if checkbox 1 is checked, the other four will be checked also. How can I do that? Thanks

 

[steve the fish]

This code will toggle them all checked or all unchecked.

Private Sub CheckBox1_Change()
Dim c As Control
For Each c In UserForm1.Controls
    If TypeName(c) = "CheckBox" Then
        c.Value = CheckBox1.Value
    End If
Next
End Sub