Private Sub CheckBox1_Change()
If CheckBox1 Then
If Not CheckBox2 Then
Rows(2).Select
Else
Union(Rows(2), Rows(3)).Select
End If
Else
If CheckBox2 Then Rows(3).Select
End If
End Sub
Private Sub CheckBox2_Change()
If CheckBox2 Then
If Not CheckBox1 Then
Rows(3).Select
Else
Union(Rows(2), Rows(3)).Select
End If
Else
If CheckBox1 Then Rows(2).Select
End If
End Sub