如何从一组复选框中仅选中一个复选框？

Question

我有两组复选框。

第1组

CheckboxA
CheckboxB

第2组

CheckboxC
CheckboxD
CheckboxE

如何只允许从每个组中选择一个复选框？还有一种方法可以链接一组复选框的结果数据吗？

Private Sub Worksheet_Change(ByVal Target As Range)

With ActiveSheet
    Select Case Range("H5").Value

    Case "London"
        .Shapes("CheckboxB").Visible = True
        .Shapes("CheckboxA").Visible = False

    Case "England/Wales"
        .Shapes("CheckboxA").Visible = False
        .Shapes("CheckboxB").Visible = True

    Case "Scotland"
        .Shapes("CheckboxB").Visible = False
        .Shapes("CheckboxA").Visible = True

    Case ""
        .Shapes("CheckboxA").Visible = False
        .Shapes("CheckboxB").Visible = False

    End Select

    Select Case Range("H6").Value

    Case "Pay Later"
        .Shapes("CheckboxC").Visible = True
        .Shapes("CheckboxD").Visible = True
        .Shapes("CheckboxE").Visible = True

    Case "Pay Now"
        .Shapes("CheckboxC").Visible = True
        .Shapes("CheckboxD").Visible = True
        .Shapes("CheckboxE").Visible = True

    Case "Core NSNF"
        .Shapes("CheckboxC").Visible = True
        .Shapes("CheckboxD").Visible = False
        .Shapes("CheckboxE").Visible = False

    Case "Premium NSNF"
        .Shapes("CheckboxC").Visible = False
        .Shapes("CheckboxD").Visible = False
        .Shapes("CheckboxE").Visible = False

    Case ""
        .Shapes("CheckboxC").Visible = False
        .Shapes("CheckboxD").Visible = False
        .Shapes("CheckboxE").Visible = False

    End Select

End With
End Sub