I got a spread sheet that does quite a bit calculating, I’m trying to cut down the waiting time for it to calculation upon opening, updating and closing the workbook.

I started to play around Disable the Calculation function, but when it closes it leaves the Calc in Manual vs. Automatic, I tried an event before close . . . didn't work.



Private Sub Workbook_BeforeClose(Cancel As Boolean)
'
Application.Calculation = xlCalculationAutomatic
Sheets("MAIN").Select
Range("A1").Select

End Sub

Any help is deeply appreciated!