Private Sub CommandButton1_Click()
Dim str As Variant
If checkbox1 = True Then
str = Range("A1").Value
checkbox1 = str
Else
If checkbox1 = False And checkbox2 = True Then
str = Range("A1").Value
checkbox2 = str
End If
Else
If (checkbox1 = True And checkbox2 = True) Then
str = Range("A1").Value
checkbox1 = str
str = Range("A2").Value
checkbox2 = str
End If
End If
End Sub