Sub Macro1()
    SolverOk SetCell:="$B$4", MaxMinVal:=2, ValueOf:="0", ByChange:="$B$3"
    SolverSolve
End Sub