Macro to Select Multiple Checkboxes

[normanbox]

I have multiple checkboxes (ex. 10) and am wanting to create macros that selects specific checkboxes (ex. a button/macro called "Basic" selects checkboxes 1, 3, and 5). Then I would like to deselect any checkbox I desire without deselecting them all (ex. deselecting checkbox 3 but checkboxes 1 and 5 remains). I'm a novice with VBA and recording a macro doesn't seem to work. Any help you could provide is greatly appreciated.

 

[Yongle]

Each of the following sets 5 checkboxes to checked

Checkboxes are on a userform
- in userform code window

Private Sub UserForm_Initialize()
    CheckBox1.Value = True
    CheckBox2.Value = True
    CheckBox3.Value = True
    CheckBox4.Value = True
    CheckBox5.Value = True
End Sub

.
Checkboxes are on a worksheet
- are they Form Controls ?
- are they Active-X controls ?

Sub Check_Some_Boxes_Form_Control()
    With ActiveSheet
        .Shapes("Check Box 1").ControlFormat.Value = xlOn
        .Shapes("Check Box 2").ControlFormat.Value = xlOn
        .Shapes("Check Box 3").ControlFormat.Value = xlOn
        .Shapes("Check Box 4").ControlFormat.Value = xlOn
        .Shapes("Check Box 5").ControlFormat.Value = xlOn
    End With
End Sub

Sub Check_Some_Boxes_ActiveX()
    With ActiveSheet
        .CheckBox1.Value = True
        .CheckBox2.Value = True
        .CheckBox3.Value = True
        .CheckBox4.Value = True
        .CheckBox5.Value = True
    End With
End Sub

 

[normanbox]

Each of the following sets 5 checkboxes to checked

Checkboxes are on a userform
- in userform code window

Private Sub UserForm_Initialize()
    CheckBox1.Value = True
    CheckBox2.Value = True
    CheckBox3.Value = True
    CheckBox4.Value = True
    CheckBox5.Value = True
End Sub

.
Checkboxes are on a worksheet
- are they Form Controls ?
- are they Active-X controls ?

Sub Check_Some_Boxes_Form_Control()
    With ActiveSheet
        .Shapes("Check Box 1").ControlFormat.Value = xlOn
        .Shapes("Check Box 2").ControlFormat.Value = xlOn
        .Shapes("Check Box 3").ControlFormat.Value = xlOn
        .Shapes("Check Box 4").ControlFormat.Value = xlOn
        .Shapes("Check Box 5").ControlFormat.Value = xlOn
    End With
End Sub

Sub Check_Some_Boxes_ActiveX()
    With ActiveSheet
        .CheckBox1.Value = True
        .CheckBox2.Value = True
        .CheckBox3.Value = True
        .CheckBox4.Value = True
        .CheckBox5.Value = True
    End With
End Sub

Thank you. That worked perfectly!