PDA

View Full Version : Solved: manual calculation for individual workbooks



philfer
03-23-2008, 10:48 AM
Hi,

Is it possible to set the calculation to manual for individual workbooks. I have a workbook with many many formulae and lots of links between sheets and everytime I do something it "calculates cells" and takes forever.

I tried to use application.calculation = xlManual but it changed this for every workbook that was open and caused other users to get confused and tense.

Is there any way to set this for one workbook only as the workbook is slow and clunky at the moment

Cheers

mdmackillop
03-23-2008, 01:40 PM
In ThisWorkbook module

Private Sub Workbook_Activate()
Application.Calculation = xlCalculationManual
End Sub

Private Sub Workbook_Deactivate()
Application.Calculation = xlCalculationAutomatic
End Sub