Problem med VB

rem Indlægges i Ark1 i VBA (Alt+F11)

Dim flag As Boolean
Private Sub worksheet_change(ByVal Target As Excel.Range)
    If flag = False Then
        If Not Intersect(Target, Range("I10:I10", "D10:D10")) Is Nothing Then
            x = Target.Row
            y = Target.Column
           
            If y = 4 Then
                flag = True
                Cells(10, 9) = ""
               
            Else
                flag = True
                Cells(10, 4) = ""
            End If
        End If
    End If
    flag = False
End Sub

Det er jo fantastisk.

Så lidt - blot det virker...