Sub Solver()
Dim lngI As Long
For lngI = 5 To 10
SolverOk MaxMinVal:=2
SolverOk SetCell:=Cells(254, lngI)
SolverOk Engine:=1
SolverOk ByChange:=Range(Cells(251, lngI), Cells(253, lngI))
SolverAdd CellRef:=Range(Cells(251, lngI), Cells(253, lngI)), Relation:=3, FormulaText:=Range("0")
SolverAdd CellRef:=Range(Cells(251, lngI), Cells(253, lngI)), Relation:=1, FormulaText:=Range("1")
SolverSolve userfinish:=True
Next lngI
End Sub