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.