Sub Macro1()
'
' Macro1 Macro
'
'
SolverOk SetCell:="$BD$8", MaxMinVal:=3, ValueOf:=0, ByChange:="$AJ$8", Engine _
:=1, EngineDesc:="GRG Nonlinear"""
SolverOk SetCell:="$BD$8", MaxMinVal:=3, ValueOf:=0, ByChange:="$AJ$8", Engine _
:=1, EngineDesc:="GRG Nonlinear"""...