Excel-VB-check box

Формулировка задачи:

Имеется два флажка, которые не дожны одновременно стоять! Если один установил, второй должен исчезнуть, но у меня не работает! Знаю, что для вас это легко, заранее спасибо!
Private Sub Chk1_Click()
If Chk1.Value = 1 Then
Chk2.Value = 2
Else
Chk2.Value = 1
Chk1.Value = 2
End If
End Sub

Решение задачи: «Excel-VB-check box»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Sub</font> Chk1_Click()

<font color="blue">If</font> Chk1.Value = <font color="darkblue"><b>1</b></font> <font color="blue">Then</font>
    Chk2.Value = <font color="darkblue"><b>0</b></font>
Esle
    Chk2.Value = <font color="darkblue"><b>1</b></font>
<font color="blue">End</font> <font color="blue">If</font>

<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> Chk2_Click()

<font color="blue">If</font> Chk2.Value = <font color="darkblue"><b>1</b></font> <font color="blue">Then</font>
    Chk1.Value = <font color="darkblue"><b>0</b></font>
Esle
    Chk1.Value = <font color="darkblue"><b>1</b></font>
<font color="blue">End</font> <font color="blue">If</font>

<font color="blue">End</font> <font color="blue">Sub</font>
                        