Deleting autofiltered non-contiguous rows taking 3mins

[yoda66]

Hi all,

I have a workbook with around 31,000 rows of data inserted from columnns A:AF. I have applied an autofilter on this data, then I intend to delete the filtered range leaving me with around 10,000 rows once reset I have reset the autofilter. This process is currently taking around 3 mins using the following code to delete the rows after the autofilter has run:

Please Login or Register  to view this content.

I have tried running the following code to speed the process up but again it is around 3 mins:

Please Login or Register  to view this content.

Does anyone have a solution to speed this process up?

Regards,
Theo

[TMS]

You could try switching off ScreenUpdating and setting Calculation to Manual. then, if you've got lots of formulae in those 31,000 rows, it's not going to keep re-calculating.


Regards, TMS

[yoda66]

Screen updating is off and there are no formula in the rows. The workbook is large though, I have tested the same code in a small workbook with just the data sheet and it executes in about 7 seconds! Seems like the problem is the size of the workbook.

[TMS]

Are there formulae in other sheets that may or may not depend on the data in the sheet where you are deleting rows?