Estoy tratando de usar el solucionador para encontrar la raíz de 182 celdas, cada celda depende solo de una variable, la celda de salida es de O2 a O183, la celda variable es de P2 a P183. Estoy tratando de cambiar las celdas variables para que la celda de salida sea igual a 1. El código funciona pero los resultados no convergen. Como solo quiero un valor fijo de 1, no configuré el valor MaxMin. El codigo es:

Sub Solver()
    Dim setcellrange As Range, bychangerange As Range
    Dim i As Long
    For i = 3 To 5
        Set setcellrange = Sheets("AshfordPierce").Cells(i, 15)
        Set bychangerange = Sheets("AshfordPierce").Cells(i, 16)
        SolverReset
        SolverOk SetCell:=setcellrange.Address, ValueOf:=1, ByChange:=bychangerange.Address, Engine:=1, EngineDesc:="GRG NONLINEAR"

        SolverSolve

Next i
End Sub

Cuando uso la función solucionador fuera de VBA, funciona, pero los resultados de VBA no convergen. Cualquier ayuda es apreciada.