I don't know if this will help or not but...worth a try.

Set the "Application.ScreenUpdating = False" just prior to your Do-Loop
event and "Application.ScreenUpdating = True" after the looping event is
finished. Good Luck.

John

"John Flynn" wrote in message
...
An application I have written runs in seconds in Excel
2000 but takes minutes using Excel 2002 the offending code
is the ActiveCell.EntireRow.Delete statement in the code
subset listed below. One by one rows are deleted taking
lots of time (XP) -- same code same everything Office
2000 - instantly. Any ideas are welcome.

Thanks

Do
If ActiveCell.Value = "Delete" Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop Until ActiveCell.Value = "" Or ActiveCell.Row 1000