Solver dialog box

[koukou]

I created a macro that solves for the column C by changing column E see below. Although I have to accept solver results each time for each row. Is there anyway I can stop the solver dialog box from appearing and accept results automatically?

I tried to add Userfinish:=True after Solversolve but I did not work. Any idea? Thanks a lot.

Below is the macro:

Sub Macro1()
For i = 1 To 15
SolverOk SetCell:="$C$" & i, MaxMinVal:=3, ValueOf:="0", ByChange:="$E$" & i
SolverSolve
Next i
End Sub

Thank you.