Code To Stop Solver Results Dialog Box Showing

[ADE6]

Hi,

Does anybody know how to stop the Solver Results Dialog Box appearing ?

I want to accept the solver results and carry on with the rest of my macro.

Really appreciate the help


Ade

Sub METASTOCKSOLVER() 
     
    Sheets("CALC").Select 
    SolverOk SetCell:="$F$21", MaxMinVal:=1, ValueOf:="0", ByChange:="$B$21" 
    SolverSolve 
    SolverSolve UserFinish:=True 
End Sub

 

[ADE6]

I seem to have sorted it out.

By removing "SolverSolve" it seems to work