End a procedure from a different procedure
hi, (...) ?
... I'm writing a simulator that uses about a dozen different procedures.
In each procedure I have an Application.Run that sends the compiler to a different procedure.
When I run the macro, after awhile, I get a "Run-Time error'28' Out of stack space".
I think this comes because I've nested to many procedures.
I also don't want to return to the old procedure after completing the new one.
So my question: Is there any way to end the old Sub immediately after transferring to the new one?
And will the variables remain intact if they are declared as public in a separate module?
If my question is a little confusing I'll clarify if necessary. Thanks
instead using the Application.Run method you could try with Application.OnTime (i.e.)
Sub Macro1()
MsgBox "Starting chained procedures..."
Application.OnTime Now, "macro2"
MsgBox "Master procedure finished."
End Sub
Private Sub Macro2()
MsgBox "Starting secondary procedure..."
Application.OnTime Now, "macro3"
MsgBox "Secondary procedure finished."
End Sub
Private Sub Macro3()
MsgBox "Starting third procedure..."
Application.OnTime Now, "macro4"
MsgBox "Third procedure finished."
End Sub
Private Sub Macro4()
MsgBox "Starting fourth procedure..."
MsgBox "Fourth procedure finished."
End Sub
hth,
hector.
|