I think you want to use the following:

SolverSolve True

If you wish to use the results with "SolverFinish", then here is just one
idea.

Sub Demo()
'// Dana DeLouis
Dim WhatHappened
Const KeepSolution = 1
Const DiscardSolution = 2

'// Don't display Solver

WhatHappened = SolverSolve(True)

Select Case WhatHappened
Case 1 To 3
'Solution should be ok
SolverFinish KeepSolution
Case Else
SolverFinish DiscardSolution
End Select
End Sub

HTH. :)

--
Dana DeLouis
Using Windows XP & Office XP
= = = = = = = = = = = = = = = = =


"Hannu Rantala" wrote in message
om...
Hello!

Which would be the correct command in solver macro to shut
solverresults-window after iteration? SolverFinish doesn't do that.

Hannu Rantala