Force iterations in personal.xls

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Don - 30 Jan 2008 22:41 GMT

All of my spreadsheets have circular references, usually quite a few. I just
got some code to force Automatic Calculation every time excel is opened by
way of embedding the code in personal.xls. I'd also like to force iterations
for all spreadsheets through some vb in my personal.xls too. Ideally, I'd
like the code to set the checkmark for Iteration and also set values for
Maximum Iterations and Maximum Change. Any assistance would be greatly
appreciated. Thanks.

Reply to this Message

Gord Dibben - 30 Jan 2008 23:39 GMT

As simple as turning on the macro recorder.

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 1/30/2008 by Gord Dibben
'

'
With Application
.Iteration = True
.MaxIterations = 999
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub

In Personal.xls Thisworkbook module enter this event code to set the calculation
and iteration mode for the application.

Private Sub Workbook_Open()
With Application
.Calculation = xlCalculationAutomatic
.Iteration = True
.MaxIterations = 999
.MaxChange = 0.001
End With
End Sub

Gord

>All of my spreadsheets have circular references, usually quite a few. I just
>got some code to force Automatic Calculation every time excel is opened by
[quoted text clipped - 3 lines]
>Maximum Iterations and Maximum Change. Any assistance would be greatly
>appreciated. Thanks.

Reply to this Message