Sub Macro4()
Dim MaVal, message As String, message2 As String
message = Range("M10").Value
message2 = Range("M11").Value
MaVal = Sheets("Simulation").Range("N17").Value
SolverOk SetCell:="$D$19", MaxMinVal:=3, ValueOf:=MaVal, ByChange:="$D$11,$D$9" _
, Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve UserFinish:=True
If Range("M10") <> "" Then
MsgBox message, vbExclamation
End If
If Range("M11") <> "" Then
MsgBox message2, vbExclamation
End If
End Sub