Private Sub Workbook_Activate()
With Application
.Calculation = xlManual
.MaxChange = 0.001
.CalculateBeforeSave = False
End With
End Sub
Private Sub Workbook_Deactivate()
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
.CalculateBeforeSave = False
End With
End Sub
Private Sub Workbook_Before_Open()
With Application
.Application.Calculation = xlCalculationManual
.MaxChange = 0.001
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
.Application.Calculation = xlCalculationManual
.CalculateBeforeSave = False
.CalculateBeforeClose = False
.MaxChange = 0.001
End With
End Sub
Bookmarks