HI All

I use this code to turn Automatic Calculation to Manual when I open my
workbook :


Private Sub Workbook_Open()


With Application
.Calculation = xlManual
.MaxChange = 0.001
.CalculateBeforeSave = False
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub



Can someone advise how to extend this so that it switches Automatic
Calculation back on when I close the workbook?



Thanks

Why turn Automatic calculation back on when you close the workbook if you
are just going to turn it back off when you open it again? If you want the
cells updated for any changes made, just issue a Calculate or CalculateFull
method in the BeforeClose event.

--
Rick (MVP - Excel)


"Colin Hayes" wrote in message
...

HI All

I use this code to turn Automatic Calculation to Manual when I open my
workbook :


Private Sub Workbook_Open()


With Application
.Calculation = xlManual
.MaxChange = 0.001
.CalculateBeforeSave = False
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub



Can someone advise how to extend this so that it switches Automatic
Calculation back on when I close the workbook?



Thanks

Hi,

Use the BeforeClose event. Here is a sample:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
End Sub

--
If this helps, please click the Yes button

Cheers,
Shane Devenshire


"Colin Hayes" wrote:


HI All

I use this code to turn Automatic Calculation to Manual when I open my
workbook :


Private Sub Workbook_Open()


With Application
.Calculation = xlManual
.MaxChange = 0.001
.CalculateBeforeSave = False
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub



Can someone advise how to extend this so that it switches Automatic
Calculation back on when I close the workbook?



Thanks

In article , Shane
Devenshire writes
Hi,

Use the BeforeClose event. Here is a sample:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
End Sub


Hi

OK Thanks for that.

How would this merge with my existing code?

Here is what I have presently

Private Sub Workbook_Open()


With Application
.Calculation = xlManual
.MaxChange = 0.001
.CalculateBeforeSave = False
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub



Do I combine the two somehow?

Best wishes.

In article , Rick Rothstein
writes
Why turn Automatic calculation back on when you close the workbook if you
are just going to turn it back off when you open it again? If you want the
cells updated for any changes made, just issue a Calculate or CalculateFull
method in the BeforeClose event.


HI

Well , because I'm running other workbooks which need Automatic
Calculation to been. It's only this one that needs it off when it's
running. When I close this one , I just need a way to have it switch
auto calculation back on , otherwise it interferes with the other
Workbooks. I'm not sufficiently technical to be able to implement your
suggestion , I'm afraid.

Best wishes