Hi P,

Knowing nothing of your code it is very difficult to help, but arranging
your code as follows may help:

On Error GoTo XIT

With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With

ActivesheetDisplayPageBreaks = False

'Your code

XIT:
With Application
.Calculation = CalcMode
.ScreenUpdating = True
End With


---
Regards,
Norman


"pcd" wrote in message
...

Hi

The spreadsheet has grown to 10MB.The project has 20+ worksheets that
calculate many formulas and graphs.The only way to speed up the
calculations was to change back to excel; as the more VB code the
slower the project. Is there a way to use VB and not slow down the
project?

pd


--
pcd
------------------------------------------------------------------------
pcd's Profile:
http://www.excelforum.com/member.php...o&userid=29557
View this thread: http://www.excelforum.com/showthread...hreadid=492595