Application.ScreenUpdating = False
Dim fmForm As FrmDERatio 'Object variable for form
Set fmForm = New FrmDERatio 'create new instance of the form
With fmForm
.Show
If Not .Cancel Then
Application.ScreenUpdating = False
Sheets("DATA").Range("F24").Value = val(.InputReturn)
Call A1_Reset_Prodction_Cost_Line24
Call B1_Prod_Cost_Goal_Seek_Phase1_Copy_Paste_Value
Call C1_Prod_Cost_Goal_Seek_Phase2_Copy_Paste_Value
Call D1_Prod_Cost_Goal_Seek_310Days_Copy_Paste_Value
Call E1_Delete_Marginal_Prod_Cost_Cell_P24
Sheets("DATA").Range("F46").Value = val(.InputReturn3) & "% "
Sheets("CAPITAL COST SUM").Range("AZ100").Value = val(.InputReturn2) / 100
Sheets("CAPITAL COST SUM").Range("C31:C32,E37").ClearContents
Sheets("CAPITAL COST SUM").Select
Application.Run "SolverReset"
Application.Run "SolverOk", "$C$42", 3, val(.InputReturn2) / 100, "$C$31,$C$32,$E$37"
Application.Run "SolverAdd", "$C$31", 3, "0"
Application.Run "SolverAdd", "$C$32", 3, "0"
Application.Run "SolverAdd", "$D$31", 3, "1000000"
Application.Run "SolverAdd", "$D$32", 3, "1000000"
Application.Run "SolverAdd", "$G$37", 2, "0"
Application.Run "SolverOptions", 100, 1000, 1e-20, False, False, 1, 1, 1, 5, False, 1e-05, False
Application.Run "SolverSolve", True
Application.Run "SolverFinish", 1
Application.ScreenUpdating = True
Sheets("PRICES").Select
MsgBox "- The Marginal Production Costs have been calculated." & vbCr & "" & vbCr & "- The LPG Cost has been set to: " & .InputReturn & " USD/Ton " & vbCr & "" & vbCr & "- The Debt / Equity Ratio has been set to: " & 100 - .InputReturn2 & "% " & "/ " & .InputReturn2 & "% " & vbCr & "" & vbCr & "- The Corporate Tax Rate has been set to: " & .InputReturn3 & "% " & vbCr & "" & vbCr & "Click OK to continue with the Simulation."
End If
End With
End Sub