Solver Problem

[Diogo]

Hi,
Just recorded the following Macro:

Sub Minimize()
'
' Minimize Macro
' Macro recorded 14-01-2008 by dbranco

SolverOk SetCell:="$D$27", MaxMinVal:=3, ValueOf:="0", ByChange:= _
"$D$6:$D$12,$D$14:$D$19,$D$22:$D$25"
SolverSolve

SolverOk SetCell:="$E$27", MaxMinVal:=3, ValueOf:="0", ByChange:= _
"$E$6:$E$12,$E$14:$E$19,$E$22:$E$25"
SolverSolve

SolverOk SetCell:="$F$27", MaxMinVal:=3, ValueOf:="0", ByChange:= _
"$F$6:$F$12,$F$14:$F$19,$F$22:$F$25"
SolverSolve

SolverOk SetCell:="$G$27", MaxMinVal:=3, ValueOf:="0", ByChange:= _
"$G$6:$G$12,$G$14:$G$19,$G$22:$G$25"
SolverSolve

SolverOk SetCell:="$H$27", MaxMinVal:=3, ValueOf:="0", ByChange:= _
"$H$6:$H$12,$H$14:$H$19,$H$22:$H$25"
SolverSolve

SolverOk SetCell:="$I$27", MaxMinVal:=3, ValueOf:="0", ByChange:= _
"$I$6:$I$12,$I$14:$I$19,$I$22:$I$25"
SolverSolve
End Sub

Ok what I need is an automating way to respond yes to the proverbial
question "do you whant to keep the solver results", between each solving step.
Is this possible?

Thanks

 

[Graham Whitehead]

PUT 'SolverSolve True' after each SolverSolve"Diogo"