Prevent Checkbox2 being Selected if Checkbox1 is Selected

Is there a way to control if 1 checkbox is selected, then another specific checkbox cannot be selected.

a) If checkbox1 is selected (= "true"), checkbox 15 cannot be selected (= "true").
b) if Checkbox15 is selected (="true") Checkbox1 cannot be selected (="true")

Both Checkboxes run code when they are unselected (= "false")

Thanks,

Here is code for checkbox1:

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
    Dim sourceRange As Range
    Dim destrange As Range
    Set sourceRange = Sheets("2A. TRTMT ONLY- COMPLETE").Columns("h:h")
    Set destrange = Sheets("2.2. CUSTOM TREATMENT PKG").Columns("h:h")
    sourceRange.Copy destrange
    Sheets("2.2. CUSTOM TREATMENT PKG").Range("H5") = "P"
ElseIf CheckBox1.Value = False Then
    Set destrange = Sheets("2.2. CUSTOM TREATMENT PKG").Columns("h:h")
    destrange.ClearContents
    destrange.EntireColumn.Hidden = True
    
End If
End Sub

Here is code for checkbox15:

Private Sub CheckBox15_Click()
    If CheckBox15.Value = True Then
    Dim sourceRange As Range
    Dim destrange As Range
    Set sourceRange = Sheets("2A. TRTMT ONLY- COMPLETE").Columns("h:h")
    Set destrange = Sheets("2.2. CUSTOM TREATMENT PKG").Columns("h:h")
    sourceRange.Copy destrange
    Sheets("2.2. CUSTOM TREATMENT PKG").Range("H5") = "R"
ElseIf CheckBox15.Value = False Then
    Set destrange = Sheets("2.2. CUSTOM TREATMENT PKG").Columns("h:h")
    destrange.ClearContents
    destrange.EntireColumn.Hidden = True
    
End If
End Sub

How would you like an error to be handled?
-A message box pops up informing the user that they cannot select TRUE for both Checkboxes
-If Checkbox1 is selected TRUE, then the user selects Checkbox15 as TRUE also, it will automatically unselect Checkbox1 (and vice versa)

BigBas,
I would like to prevent them from selecting true for both checkboxes.

AND
"A message box pops up informing the user that they cannot select TRUE for both Checkboxes"


Thanks,

I didn't have a chance to check this, so report back if it doesn't work:

Private Sub CheckBox1_Click()
    If CheckBox15.Value = True And CheckBox1.Value = True Then
        MsgBox "You may not select both options"
        CheckBox1.Value = False
    ElseIf CheckBox1.Value = True Then
    Dim sourceRange As Range
    Dim destrange As Range
    Set sourceRange = Sheets("2A. TRTMT ONLY- COMPLETE").Columns("h:h")
    Set destrange = Sheets("2.2. CUSTOM TREATMENT PKG").Columns("h:h")
    sourceRange.Copy destrange
    Sheets("2.2. CUSTOM TREATMENT PKG").Range("H5") = "P"
ElseIf CheckBox1.Value = False Then
    Set destrange = Sheets("2.2. CUSTOM TREATMENT PKG").Columns("h:h")
    destrange.ClearContents
    destrange.EntireColumn.Hidden = True
    
End If
End Sub

Private Sub CheckBox15_Click()
    If CheckBox15.Value = True And CheckBox1.Value = True Then
        MsgBox "You may not select both options"
        CheckBox15.value = False
    Elseif CheckBox15.Value = True Then
    Dim sourceRange As Range
    Dim destrange As Range
    Set sourceRange = Sheets("2A. TRTMT ONLY- COMPLETE").Columns("h:h")
    Set destrange = Sheets("2.2. CUSTOM TREATMENT PKG").Columns("h:h")
    sourceRange.Copy destrange
    Sheets("2.2. CUSTOM TREATMENT PKG").Range("H5") = "R"
ElseIf CheckBox15.Value = False Then
    Set destrange = Sheets("2.2. CUSTOM TREATMENT PKG").Columns("h:h")
    destrange.ClearContents
    destrange.EntireColumn.Hidden = True
    
End If
End Sub

Works perfectly,

Thank You.