Hi Conan:

Whoa.....thank you...it works just as it's suppose to with your
recommendation......I am truly grateful....I will remember that for future
applications....

I have another favor to ask....If I want this macro to just delete the rows
that have a 0 in Column I, how can I revise the macro to do that?

Any help would be greatly appreciated!
--
jeannie v


"Conan Kelly" wrote:

Jeannie,

Is automatic calculation turned on? Is it recalculating after each row is
deleted (watch the status bar in the bottom left corner of the XL
window...It will say something like "Calculating" and give a percentage)?
Does this workbook/worksheet take some time to recalculate?

If that is your issue, then you can turn AutoCalc off by putting this as one
of the first lines in your macro:

Application.Calculation = xlCalculationManual

.... and then turn it back on by putting this as the last line in the macro:

Application.Calculation = xlCalculationAutomatic

HTH,

Conan

"jeannie v" wrote in message
...
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