Macro to change Calculation Option back to Automatic when closing workbook

[gifariz]

Hi, all.

Because the file is heavy, I turned the calculation option into manual when opening workbook using this code and it works:

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

But when I put this code to change calculation option back to Automatic when closing workbook,

Private Sub Workbook_BeforeClose()
Application.Calculation = xlCalculationAutomatic
End Sub

it gives error: "Compile error: Procedure declaration does not match description of event or procedure having the same name."

What should I do to make it works?

Thank you in advance.

 

[Peter_SSs]

What happens if you make this change?

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

 

[gifariz]

What happens if you make this change?

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

It works perfectly. Thank you very much!

 

[Peter_SSs]

You're welcome. Thanks for the follow-up.