Hi there

Sorry, you've reached the (rather limited) extent of my knowledge on this topic

Good luck though

Cheers
Fos

----- wrote: ----

H

Yes I've included Screenupdate, Automatic Calculation,
Page Breaks etc, its actually a bug in excel when you
automate a task it slows down, however I'm looking for a
work-around

cheer
-----Original Message----
Hi there
Have you tried using this
Application.ScreenUpdating = Fals
at the start of your macro
If you use this, YOU MUST add this to the end of the
macro
Application.ScreenUpdating = Tru
If you don't, you won't be able to use excel until you
restart it. Which is very annoying
Cheers
Fos
-----Original Message----
Hi Al
From my original example (see the bottom of the page) I
have replace
Rows("600:600").Selec
Selection.Delete Shift:=xlU
wit
Rows("600:600").Delete Shift:=xlU
This has helped a considerable amount, however, it
zooms
through about 150 to 200 rows then slows again. Excel
2002 is a real pain at the moment
can any one advise me furthe
Cheer
Original Exampl
Sub Delete_Row_600_551(
Sheets("Data").Selec
If Range("G600") < Range("Q1") The
Rows("600:600").Selec
Selection.Delete Shift:=xlU
End I
If Range("G600") Range("S1") The
Rows("600:600").Selec
Selection.Delete Shift:=xlU
End I
If Range("G599") < Range("Q1") The
Rows("599:599").Selec
Selection.Delete Shift:=xlU
End I
If Range("G599") Range("S1") The
Rows("599:599").Selec
Selection.Delete Shift:=xlU
End I
End Su