Private Sub Macro7_Click()
'
Range("F4").Select
Selection.ClearContents
SolverOk SetCell:=Worksheets("test").Range("$C$2"), MaxMinVal:=3, ValueOf:=Worksheets("test").Range("H1").Value, ByChange:=Worksheets("test").Range("$F$4"), _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:=Worksheets("test").Range("$C$2"), MaxMinVal:=3, ValueOf:=Worksheets("test").Range("H1").Value, ByChange:=Worksheets("test").Range("$F$4"), _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
End Sub