fari1
Active Member
- Joined
- May 29, 2011
- Messages
- 362
Code:
Sub newcode2()
startrow = 2
Sheets("statement").Select
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Sheets("sheet1").Select
sheet1rows = Cells(Rows.Count, "A").End(xlUp).Row
For Y = 1 To sheet1rows
Sheets("sheet1").Select
searchvalue = "*" & Cells(Y, "A").Value & "*"
Sheets("statement").Select
For X = lastrow To startrow Step -1
If Cells(X, "A").Value Like searchvalue Then Cells(X, "A").EntireRow.Delete
Next
Next
End Sub
hi, my above code is case sensetive, while i dont want it to be, any help plz