Private Sub Worksheet_Change(ByVal Target As Range)

    If Not bitEnable Then
        If Not bitEnable0 Then
            bitEnable0 = True
            xxx = Target.Address
        End If

        If xxx = "$E$7" Then
            If Not bitEnable1 Then
                bitEnable1 = True
                Range("e8").ClearContents
            ElseIf Not bitEnable2 Then
                bitEnable2 = True
                Range("e9").ClearContents
            End If
        ElseIf xxx = "$E$8" Then
            If Not bitEnable1 Then
                bitEnable1 = True
                Range("e7").ClearContents
            ElseIf Not bitEnable2 Then
                bitEnable2 = True
                Range("e9").ClearContents
            End If
        ElseIf xxx = "$E$9" Then
            If Not bitEnable1 Then
                bitEnable1 = True
                Range("e7").ClearContents
            ElseIf Not bitEnable2 Then
                bitEnable2 = True
                Range("e8").ClearContents
            End If
        End If
        bitEnable = True
    End If
End Sub