manual calculate for one workbook 1

[amberH]

Hi all,
How can I set a workbook to manual calculate?
I have a workbook that multiple users use. If autocalculate is one, it is SLOW. I know that I can set my options to manual calculate, but then all workbooks I open after this are manual, which isn't what I want.
Is there some way I can set it when the workbook opens, and set it back to auto when the workbook closes??
Thanks,
amber

 

[rmikesmith]

Amber,

Set up Workbook_Open and Workbook_BeforeClose event procedures as follows:

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

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.Calculation = xlCalculationAutomatic
End Sub

Post back if you need more detail.

Regards,
Mike

 

[amberH]

Thanks!
That's exactly what I wanted.
I figured commands just like those existed, but I couldn't find them anywhere in Help.
Thanks again!
amber