Sub Macro3()
'
' Macro3 Macro
'
'
SolverOk SetCell:="$V$4", MaxMinVal:=3, ValueOf:=1.1, ByChange:="$B$18", Engine _
:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$V$4", MaxMinVal:=3, ValueOf:=1.1, ByChange:="$B$18", Engine _
:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
End Sub