Turn on Automatic Calculation

[WhoCanDo]

I have just come across a weird problem.

In Excel Tools/Options/Calculation is the option to set calculation Automatic or Manual.

Somehow one of our computers is turning this to Manual and Excel is saving it in the common Workbook we use.

What code can I use to check this status and make sure it is Automatic each time the Workbook is opened?

 

[Firefly2012]

In the workbook's ThisWorkbook module, you could place the following:

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

Macros would need to be enabled for this to work please note.

 

[VoG]

Try in the ThisWorkbook module

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

 

[WhoCanDo]

Thanks to both of you. Works well. I thought it was the Application.Calculation but didn't know what came after the =

Regards