Delete row based on ctriteria

[howard]

I have the following code to delete row2

I need the code amended below

If A2 contains "KL", then exit Macro, otherwise delete row 2

 Sub Del_Unwanted_Row()
Sheets("Extracted Data).Select
With Range("A2").EntireRow.Delete

End Sub

Your assistance is most appreciated

 

[BarryL]

I have the following code to delete row2

I need the code amended below

If A2 contains "KL", then exit Macro, otherwise delete row 2

 Sub Del_Unwanted_Row()
Sheets("Extracted Data).Select
With Range("A2").EntireRow.Delete

End Sub

Your assistance is most appreciated

 Sub Del_Unwanted_Row()
Sheets("Extracted Data).Select
If Instr(Ucase(Range("A2").Value),"KL")>0 Then Range("A2").EntireRow.Delete
End Sub

This should work for both upper and lowercase KL's

 

[howard]

Thanks for the Help, much appreciated