using INSTR to delete certain text whether in Upper or lower case

[howard]

I have code to delete text , but need it amended so that if the text is in upper, lower or a combination of upper and lower case, the rows containing the text will be deleted

your assistance in resolving this is most appreciated

 Sub Del_Unwanted()

Sheets(1).Select
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
finalrow = Cells(65536, 1).End(xlUp).Row
For i = finalrow To 2 Step -1
If InStr(Cells(i, 8).Value, "Polo") Or InStr(Cells(i, 8).Value, "BRT Lyland") Or InStr(Cells(i, 8).Value, "EPR KIN") Or InStr(Cells(i, 8).Value, "EAS Trase") Then

Cells(i, 8).EntireRow.Delete
End If

Next i
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub

 

[Fluff]

Try doing it like

InStr(1,Cells(i, 8).Value, "Polo",vbTextCompare)

 

[howard]

Thanks for the help. Code works perfectly

 

[Fluff]

Glad to help & thanks for the feedback