Public Sub Solv()
SolverReset
SolverOk SetCell:=Range("$F$11"), MaxMinVal:=3, ValueOf:=500, ByChange:=Range("$G$8:$G$10"), Engine:=1, EngineDesc:="GRG Nonlinear"
Application.Run "Solver.xlam!SolverAdd", "$C$11", 3, "$J$2"
Application.Run "Solver.xlam!SolverAdd", "$C$11", 1, "$J$1"
Application.Run "Solver.xlam!SolverAdd", "$D$11", 3, "$K$2"
Application.Run "Solver.xlam!SolverAdd", "$D$11", 1, "$K$1"
Application.Run "Solver.xlam!SolverAdd", "$E$11", 3, "$L$2"
Application.Run "Solver.xlam!SolverAdd", "$E$11", 1, "$L$1"
SolverSolve UserFinish:=True, ShowRef:="ShowTrial"
SolverSave SaveArea:=Range("$A$1")
End Sub
 
Function ShowTrial(Reason As Integer)
MsgBox Reason
ShowTrial = 0
End Function