Check boxes

[laingwb]

I have a series 4 check boxes lined up in a column. Each check box is in a row. I would like to select the first checkbox and have the other 3 check boxes select (check in box) when the first check box is selected. I figured this out from other posts so thank you. However, it will not let me deselect the first checkbox and the other checkboxes will also uncheck. Here is my VBA for form control.

Sub Check_Some_Boxes_Form_Control()
With ActiveSheet
.Shapes("De-Activate SAT").ControlFormat.Value = xlOn
.Shapes("CareTrack 4 YR Subscr").ControlFormat.Value = xlOn
.Shapes("ActiveCare Direct 1 YR Subscr").ControlFormat.Value = xlOn
End With
End Sub

I assigned this macro to the first checkbox which is called "caretrack". When I select the caretrack checkbox then the above works. It will not let me deselect caretrack and thus the other checkboxes will not deselect. Can someone help me get through this.

Caretrack Subscription Advanc	##
De-Activate SAT	##
CareTrack 4 YR Subscr	##
ActiveCare Direct 1 YR Subscr	##

 

[GWteB]

Hi @laingwb, welcome to MrExcel.
How about ...

Sub Check_Some_Boxes_Form_Control()
  With ActiveSheet
    .Shapes("De-Activate SAT").ControlFormat.Value = .Shapes("Caretrack").ControlFormat.Value
    .Shapes("CareTrack 4 YR Subscr").ControlFormat.Value = .Shapes("Caretrack").ControlFormat.Value
    .Shapes("ActiveCare Direct 1 YR Subscr").ControlFormat.Value = .Shapes("Caretrack").ControlFormat.Value
  End With
End Sub

 

[laingwb]

Hi @laingwb, welcome to MrExcel.
How about ...

Sub Check_Some_Boxes_Form_Control()
  With ActiveSheet
    .Shapes("De-Activate SAT").ControlFormat.Value = .Shapes("Caretrack").ControlFormat.Value
    .Shapes("CareTrack 4 YR Subscr").ControlFormat.Value = .Shapes("Caretrack").ControlFormat.Value
    .Shapes("ActiveCare Direct 1 YR Subscr").ControlFormat.Value = .Shapes("Caretrack").ControlFormat.Value
  End With
End Sub

This really worked well so thank you very much. I have one more question and I think I'm close but not there yet. I want select a checkbox and have it unselect another check box. So say I want the chicken with rice dinner. However I want onion rings instead of rice so I select onion rings and the rice check box unselects. The standard dinner has the chicken checkbox and rice checkbox selected. Likewise if I unselect onion rings the rice will select again.