error when delete row based on change in column

[Alaa mg]

hi
I have this code if change the value in column A should delete entire row , but it gives error and crash the code

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Columns(1)) Is Nothing Then
        Target.EntireRow.Delete
    End If
End Sub

 

[Fluff]

How about

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Columns(1)) Is Nothing Then
        Application.EnableEvents = False
        Target.EntireRow.Delete
    End If
    Application.EnableEvents = True
End Sub

 

[Alaa mg]

excellent ! thanks so much

 

[Fluff]

You're welcome & thanks for the feedback.