Hi Experts:

I have used this macro before and it worked perfectly...however, now when it
searches and deletes the rows that I want it to, it takes forever to go
through the document....It used to go through very fast and deleted the rows,
but now it deletes one row at a time very slowly....I have about 10000
records for it to go through and delete the records that are in the macro and
it takes a long time to complete...What might be wrong with this Macro?

Sub DeleteLOATermedDupRecords()
'
' DeleteLOATermedDupRecords Macro
' Macro recorded 2/17/2008 by Jeannie Vincovich
'
For i = 1 To 12000
If Cells(i, "J") = "LOA" Or Cells(i, "J") = "Termed" Or _
Cells(i, "J") = "Duplicate" Then
Rows(i & ":" & i).Select
Selection.Delete Shift:=xlUp
i = i - 1
End If
Next i

End Sub


Any help you can provide would be greatly appreciated.
--
jeannie v