Hi All,
I am looking for a more efficient and quicker way to achieve what I am looking for. The below code works well but is rather slow when I have lots of data. Basically what I am doing is looking for a match from one sheet (Error Report) to another (Sheet1) and if a match is found the entire row in Sheet1 is deleted.
HTML Code:
Sub removeErrors2()
Dim LR As Long, i As Long
With Sheets("Sheet1")
LR = .Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
If IsNumeric(Application.Match(.Range("K" & i).Value, Sheets("Error Report").Columns("M"), 0)) Then .Rows(i).Delete
Next I
End With
End Sub
Thanks for any help you can provide.