Delete a row based on user selection

I want to delete the row if a user select "Reject It" from a drop down list. I coded it like this: Which is not working for me, please help

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ThisWorkbook.Activate
Worksheets("AllDeps").Activate
With Worksheets("AllDeps")
Dim i As Integer
For i = 2 To 19
If .Range("M" & i) = "Reject it" Then
Rows(i).EntireRow.Delete
End If
Next
End With
End Sub