I have a longish do-while loop in a VBA fnc. (code, below) If only
this workbook is open, it completes in < 1 sec. If any other workbook
is open, execution time increases to many seconds.

My guess is that the 'application.calculate' is giving up the baton to
any other workbook, and the task switching is causing the slowdown. Is
this plausible?

Bottom line: ss there a way to speed this up? Any ideas would be
appreciated.

Thanks,
George

--------------------------------
Loop code:

Do
N = 200
Do
N = N - 1

Range("wt_use").Value = Range("wt_new").Value

Range("control").Value = _
Range("control").Value + Range("adj").Value

Application.Calculate
Loop While ((Abs(Range("min_err").Value) 0.01) _
And (N 0))
M = M + 1
Loop While ((Range("max_chg").Value 0.01))

Try this:

Application.Calculation = xlManual
Do
....
ActiveSheet.Calculate
Loop
Application.Calculation = xlAutomatic

Regards,
Stefi

€žGeorge€� ezt Ã*rta:

I have a longish do-while loop in a VBA fnc. (code, below) If only
this workbook is open, it completes in < 1 sec. If any other workbook
is open, execution time increases to many seconds.

My guess is that the 'application.calculate' is giving up the baton to
any other workbook, and the task switching is causing the slowdown. Is
this plausible?

Bottom line: ss there a way to speed this up? Any ideas would be
appreciated.

Thanks,
George

--------------------------------
Loop code:

Do
N = 200
Do
N = N - 1

Range("wt_use").Value = Range("wt_new").Value

Range("control").Value = _
Range("control").Value + Range("adj").Value

Application.Calculate
Loop While ((Abs(Range("min_err").Value) 0.01) _
And (N 0))
M = M + 1
Loop While ((Range("max_chg").Value 0.01))

Much better. Thanks.

G


On Mon, 29 Sep 2008 05:09:01 -0700, Stefi
wrote:

Try this:

Application.Calculation = xlManual
Do
...
ActiveSheet.Calculate
Loop
Application.Calculation = xlAutomatic

Regards,
Stefi

„George” ezt írta:

I have a longish do-while loop in a VBA fnc. (code, below) If only
this workbook is open, it completes in < 1 sec. If any other workbook
is open, execution time increases to many seconds. ...

You are welcome! Thanks for the feedback!
Stefi

€žGeorge€� ezt Ã*rta:

Much better. Thanks.

G


On Mon, 29 Sep 2008 05:09:01 -0700, Stefi
wrote:

Try this:

Application.Calculation = xlManual
Do
...
ActiveSheet.Calculate
Loop
Application.Calculation = xlAutomatic

Regards,
Stefi

€žGeorge€� ezt Ã*rta:

I have a longish do-while loop in a VBA fnc. (code, below) If only
this workbook is open, it completes in < 1 sec. If any other workbook
is open, execution time increases to many seconds. ...