permanently enable iterative calculation option in excel

Guys Greetings for the day.

I have the attached workbook that has a formula that works in interactive calculation and I actually enable the interactive calculation from the excel option, the issue is interactive calculation is not being enabled permanently and I want it to be always on for this workbook. From time to time it got disabled itself.

my inquiry is if there is a VBA command that insure enabling the interactive calculation every time I open the worksheet in the workbook.

I'm currently using the following VBA I got from research, but it's not working!

I hope there is a solution for this matter or a correction of the below VBA that can work perfectly.

the below VBA is saved on "this workbook" at the VB Project along with other VBA commands and it's being distracted

the error message is also attached for reference.


Private Sub Workbook_Open()
With Application
.Iteration = True
.MaxIterations = 1000
.MaxChange = 0.001
End With
ThisWorkbook.PrecisionAsDisplayed = False
End Sub


Book1.xlsm
1212212121.jpg