Problem mit VBA

Hallo ich habe folgenden Code, mit dem ich den Solver automatisch für mehrere Zeilen in zweier Schritten bedienen will, mein Ziel ist es einmal zu klicken und so schnell alle Zeitschritte zu berechnen. Wenn ich den Code ausführe passiert jedoch nichts, weder eine Fehlermeldung noch sonst was...

Sub Makrosolver()
    Dim i As Integer
    For i = 88 To 212 Step 2
        SolverReset
        SolverOk SetCell:="$M$" & i, MaxMinVal:=3, ValueOf:=0, _
            ByChange:="$G$" & i + 1 & ":$J$" & i + 1, EngineDesc:="GRG Nonlinear"
        SolverSolve UserFinish:=True
    Next i
End Sub