Turn on & off Automatic Calculation

[skyking]

Can you help the code for turn off Automatic Calculation when workbook starts and turn it back on when closing the workbook?

 

[Sektor]

In ThisWorkbook module.

[COLOR="Blue"]Private[/COLOR] [COLOR="Blue"]Sub[/COLOR] Workbook_BeforeClose(Cancel [COLOR="Blue"]As[/COLOR] [COLOR="Blue"]Boolean[/COLOR])
    Application.Calculation = xlCalculationAutomatic
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]

[COLOR="Blue"]Private[/COLOR] [COLOR="Blue"]Sub[/COLOR] Workbook_Open()
   Application.Calculation = xlCalculationManual
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]

 

[skyking]

Thanks Sektor.

 

[Sektor]

Not at all!

 

[mikerickson]

You might consider using the Activate and DeActivate events to trigger the macros.