Checkbox click and uncheck other checked boxes

[cpereznj]

I have searched my issue with no success so far. Hoping someone can point me in the right direction. I have a file with many checkboxes. For example: checkbox1, checkbox2, etc. I would like to check any checkbox and uncheck others at the same time. If checkbox1 is already checked and I click on checkbox2, it will then uncheck checkbox1 and check checkbox2.

Option Explicit

Private Sub CheckBox1_Click()
    'Turn off screen updating
    Application.ScreenUpdating = False


    If CheckBox1.Value = True Then
        
        CheckBox2.Value = 0
        CheckBox2.Enabled = True
        
        CheckBox3.Value = False
        CheckBox3.Enabled = True
        
        CheckBox4.Value = False
        CheckBox4.Enabled = True
    
            Worksheets("Score").Activate
                'Unprotect the "Score" worksheet
                ActiveSheet.Unprotect Password:=""
            Sheet3.Range("B8").Value = 10 'Checked
            Sheet3.Range("D8").Value = "" 'Unchecked
            Sheet3.Range("F8").Value = "" 'Unchecked
            Sheet3.Range("H8").Value = "" 'Unchecked
                'Protects the "Score" worksheet
                ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True _
                , AllowFiltering:=True, AllowUsingPivotTables:=True
            Worksheets("Request").Activate
    Else
        CheckBox1.Value = False
        
        CheckBox2.Value = False
        CheckBox2.Enabled = True
        
        CheckBox3.Value = False
        CheckBox3.Enabled = True
        
        CheckBox4.Value = False
        CheckBox4.Enabled = True
        
            Worksheets("Score").Activate
                'Unprotect the "Score" worksheet
                ActiveSheet.Unprotect Password:=""
            Sheet3.Range("B8").Value = "" 'Unchecked
                'Protects the "Score" worksheet
                ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True _
                , AllowFiltering:=True, AllowUsingPivotTables:=True
            Worksheets("Request").Activate
    End If
        
    'Turn on screen updating
    Application.ScreenUpdating = True
    
End Sub
    
Private Sub CheckBox2_Click()
    'Turn off screen updating
    Application.ScreenUpdating = False
    
    If CheckBox2.Value = True Then
        
        CheckBox1.Value = 0
        CheckBox1.Enabled = True
        
        CheckBox3.Value = False
        CheckBox3.Enabled = True
        
        CheckBox4.Value = False
        CheckBox4.Enabled = True
    
            Worksheets("Score").Activate
                'Unprotect the "Score" worksheet
                ActiveSheet.Unprotect Password:=""
            Sheet3.Range("D8").Value = 60 'Checked
            Sheet3.Range("B8").Value = "" 'Unchecked
            Sheet3.Range("F8").Value = "" 'Unchecked
            Sheet3.Range("H8").Value = "" 'Unchecked
                'Protects the "Score" worksheet
                ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True _
                , AllowFiltering:=True, AllowUsingPivotTables:=True
            Worksheets("Request").Activate
    Else
        CheckBox2.Value = False
        
        CheckBox1.Value = False
        CheckBox1.Enabled = True
        
        CheckBox3.Value = False
        CheckBox3.Enabled = True
        
        CheckBox4.Value = False
        CheckBox4.Enabled = True
        
            Worksheets("Score").Activate
                'Unprotect the "Score" worksheet
                ActiveSheet.Unprotect Password:=""
            Sheet3.Range("D8").Value = "" 'Unchecked
                'Protects the "Score" worksheet
                ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True _
                , AllowFiltering:=True, AllowUsingPivotTables:=True
            Worksheets("Request").Activate
    End If
    
    'Turn on screen updating
    Application.ScreenUpdating = True
    
End Sub

 

[Fluff]

Rather than using CheckBoxes why not use OptionButtons.
That way as soon as you select one the others will revert to false

 

[cpereznj]

Thank you Fluff. OptionButtons will work as well. I have already added them to the file. Having a problem passing the values when the OptionButtons are checked. I have tried the similar approach on my original code but it did not work. Any ideas?

 

[Fluff]

What is your current code?

 

[cpereznj]

Hi Fluff, I just answered my own question. My code was posted in the original question. I added ActiveX optionbuttons. I then changed my code with the proper optionbutton numbers and assigned the proper group boxes to make them work. I am now getting the values passed as expected. Thank you so much for the tip and the help.

 

[Fluff]

Glad you've sorted it & thanks for the feedback