Looping solver function in VBA

[adustin42]

I am trying to loop a solver function to minimize RMSE in excel by altering the alpha, beta and gamma values of a holts winter forecast for over 300 line items. For efficiency and testing the loop is only using row 8 to 12 for the time being. When I run it, it processes for a second, but no change after that. Please advise.

 

[adustin42]

Sub Macro3()
'
' Macro3 Macro
'
Dim i As Integer
ActiveWorkbook.ActiveSheet.Activate
For i = 8 To 12
SolverReset

    SolverOk SetCell:="$J$" & i, MaxMinVal:=2, ValueOf:=0, ByChange:="$G & i : $I &i", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverAdd CellRef:="$G:$I", Relation:=1, FormulaText:="1"
    SolverAdd CellRef:="$G:$I", Relation:=3, FormulaText:="0"
    SolverOk SetCell:="$J$" & i, MaxMinVal:=2, ValueOf:=0, ByChange:="$G & i : $I &i", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverOk SetCell:="$J$" & i, MaxMinVal:=2, ValueOf:=0, ByChange:="$G & i : $I &i", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
        
    SolverSolve True
    Next i
End Sub