Delete Rows based upon text values in a column

[fari1]

hi experts,

i've a column A in sheet1, each cell of the column contains a text value, what i want is to have a code, that will run in sheet 2 and delete those rows, which contain text value from any cell of column A of sheet1.
say e.g i've in column A the values as below

Mango
Apple
Bnanana


and if any of the above value appears in any row of sheet 2, just simply delete that row and leave the rest and it shouldn't be case sensetive.

thanking u in advance

 

[fari1]

anyone plz

 

[fari1]

Sub deletein()
StartRow = 2
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
With Application
CurrentScreenUpdating = .ScreenUpdating
CurrentCalculate = .Calculation
CurrentEnableEvents = .EnableEvents
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With
For X = LastRow To StartRow Step -1
If Cells(X, "A").Value Like "*in*" Then Cells(X, "A").EntireRow.Delete
Next
With Application
.ScreenUpdating = CurrentScreenUpdating
.Calculation = CurrentCalculate
.EnableEvents = CurrentEnableEvents
End With
End Sub


i've the above code, instead of specific word, i want to define column A, whatever is in column A of sheet1, i want the code to read those values and delete whatever rows it finds.


plz anyone