VBA script for running Solver in loop

I am running a VBA script for running solver in loop. The code looks as follows:

For i = 0 To 200
        SolverOk SetCell:=Range("$FF308").Offset(i, 0), MaxMinVal:=2, ValueOf:="0", ByChange:=Range("$BA$308:$BF$308").Offset(i, 0)
        SolverSolve
Next i

The problem is that each time the solver finishes solving, it invokes a dialog box which asks me if I would like to keep the solution or restore to original values. This means I have to press enter each time the solver solves. I have to use the solver in a loop for 2000 times, which means I have to press enter 2000 times. Is there any way I can automate this pressing Enter part?
~Thanks in advance.