Solved: manual calculation for individual workbooks

[philfer]

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]

In ThisWorkbook module
[VBA]
Private Sub Workbook_Activate()
Application.Calculation = xlCalculationManual
End Sub

Private Sub Workbook_Deactivate()
Application.Calculation = xlCalculationAutomatic
End Sub
[/VBA]