Run Time Issues

  • Thread starter Thread starter Steph
  • Start date Start date
S

Steph

Bob & Frank,

Many thanks for your replies. I thought that would do it! What it
did do is make the first run 7 seconds instead of 30.....but when I
run it immediately after the first run, it takes 6 minutes again. Is
there memeory being clogged somewhere by the first run that I need to
clear?? Thanks again!!

-Steph



Steph,

Try setting the Application calculation property to
xlCalculationManual
before the code, and reset to xlCalculationAutomatic after.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Steph,

You could try a few other things

a) clear the objects down at the end

Set shtArray = Nothing
Set frng = Nothing
Set sh = N othing

b) reduce the selecting

Set frng = Range("A5:EC" & Data.Range("b65536").End(xlUp).Row)
frng.PasteSpecial Paste:=xlPasteFormulas


Other than that, it is probably in the Consolidate, but I can't help with
that as I don't use it and know nothing about it.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Back
Top