6 флажков, 2 набора по 3, нужно, чтобы 1,2 и 3 были ложными, когда 1 истинно, аналогично 4,5 и 6, но также должны работать независимо

Question

Очень новый для Excel макросов, и мне удалось сделать то, что я хочу с 6 коробками, но они должны работать как 2 набора по 3.

Код позволяет мне включать только 1 CheckBox одновременно, но мне нужно, чтобы это происходило отдельно для блоков 1-3 и 4-6

Итак, Вопрос 1, 3 возможных ответа, но можно отметить только 1, затем, когда я перейду к вопросу 2, снова только один возможный ответ, но ответ не может отключить любой из предыдущих ответов и наоборот

Вот код: -

Sub CheckBox1()

Dim cb As CheckBox

For Each cb In ActiveSheet.CheckBoxes
    If cb.Name <> ActiveSheet.CheckBoxes("Check Box 1").Name Then
        cb.Value = ActiveSheet.CheckBoxes("Check Box 2").Value = True
End If

Next

End Sub
Sub CheckBox2()

Dim cb As CheckBox

For Each cb In ActiveSheet.CheckBoxes
    If cb.Name <> ActiveSheet.CheckBoxes("Check Box 2").Name Then
        cb.Value = ActiveSheet.CheckBoxes("Check Box 3").Value = True
End If

Next

End Sub
Sub CheckBox3()

Dim cb As CheckBox

For Each cb In ActiveSheet.CheckBoxes
    If cb.Name <> ActiveSheet.CheckBoxes("Check Box 3").Name Then
        cb.Value = ActiveSheet.CheckBoxes("Check Box 1").Value = True
End If

Next

End Sub
Sub CheckBox4()

Dim cb As CheckBox

For Each cb In ActiveSheet.CheckBoxes
    If cb.Name <> ActiveSheet.CheckBoxes("Check Box 4").Name Then
        cb.Value = ActiveSheet.CheckBoxes("Check Box 5").Value = True
End If

Next

End Sub
Sub CheckBox5()

Dim cb As CheckBox

For Each cb In ActiveSheet.CheckBoxes
    If cb.Name <> ActiveSheet.CheckBoxes("Check Box 5").Name Then
        cb.Value = ActiveSheet.CheckBoxes("Check Box 6").Value = True
End If

Next

End Sub
Sub CheckBox6()

Dim cb As CheckBox

For Each cb In ActiveSheet.CheckBoxes
    If cb.Name <> ActiveSheet.CheckBoxes("Check Box 6").Name Then
        cb.Value = ActiveSheet.CheckBoxes("Check Box 4").Value = True
End If

Next

End Sub