Try using

activesheet.calculation = false (at beginning)
activesheet.calculation = true (at end)

or

application.screenupdating = false (at beginning)
application.screenupdating = true (at end)

Or both.

"Alex St-Pierre" wrote:

Hi!
I try to copy and paste a range and it's very long since there's a lot of
formula inside. Is there a way to improve the speed. I'm in manual
calculation.
Thanks!
Alex
time1 = Timer
a = Sheets("CALCULATIONS").Cells(5, 3) * 20 + 5
Sheets("PROJ RESULTS STOCHASTIC").Select
Range("C6:C25").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Range("C26:C" & a).Select
ActiveSheet.Paste
Sheets("PROJ RESULTS STOCHASTIC").Calculate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
MsgBox (Timer - time1) 'Takes 600 sec.
--
Alex St-Pierre