I would like to set up my workbook to change to manual calculation o
workbook open and switch back to auto calculation before workboo
close

--
ceem
-----------------------------------------------------------------------
ceemo's Profile: http://www.excelforum.com/member.php...fo&userid=1065
View this thread: http://www.excelforum.com/showthread.php?threadid=39640

Hi.
on open
Application.Calculation = xlCalculationManual
on close
Application.Calculation = xlCalculationAutomatic
Regards
JY
"ceemo" wrote in
message ...

I would like to set up my workbook to change to manual calculation on
workbook open and switch back to auto calculation before workbook
close.


--
ceemo
------------------------------------------------------------------------
ceemo's Profile:
http://www.excelforum.com/member.php...o&userid=10650
View this thread: http://www.excelforum.com/showthread...hreadid=396408

Option Explicit

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

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

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code



--

HTH

RP
(remove nothere from the email address if mailing direct)


"ceemo" wrote in
message ...

I would like to set up my workbook to change to manual calculation on
workbook open and switch back to auto calculation before workbook
close.


--
ceemo
------------------------------------------------------------------------
ceemo's Profile:
http://www.excelforum.com/member.php...o&userid=10650
View this thread: http://www.excelforum.com/showthread...hreadid=396408