Private Sub CheckBox5_Click()
If Range("D8") = "" Then Exit Sub
If CheckBox5.Value = True Then
CheckBox6.Value = False
Range("F17:G17").ClearContents
If Range("D8") <= 82 Then: Range("F16") = 1: Range("G16") = "1111111111": Exit Sub
If Range("D8") <= 164 Then: Range("F16") = 2: Range("G16") = "1111111111": Exit Sub
If Range("D8") <= 240 Then: Range("F16") = 3: Range("G16") = "1111111111": Exit Sub
If Range("D8") <= 320 Then: Range("F16") = 4: Range("G16") = "1111111111": Exit Sub
If Range("D8") <= 400 Then: Range("F16") = 5: Range("G16") = "1111111111": Exit Sub
Else
CheckBox6.Value = True
Range("F16:G16").ClearContents
If Range("D8") <= 82 Then: Range("F17") = 1: Range("G17") = "2222222222": Exit Sub
If Range("D8") <= 164 Then: Range("F17") = 2: Range("G17") = "2222222222": Exit Sub
If Range("D8") <= 240 Then: Range("F17") = 3: Range("G17") = "2222222222": Exit Sub
If Range("D8") <= 320 Then: Range("F17") = 4: Range("G17") = "2222222222": Exit Sub
If Range("D8") <= 400 Then: Range("F17") = 5: Range("G17") = "2222222222": Exit Sub
End If
End Sub