Saving Solver objective function value with a macro

[sjp22]

Hello

I have written this macro below to run solver multiple times. It saves the solver results on a line and then inserts a new line for the next solver run.

I would like to save the final Objective Function Value from solver in each line as well as its result. Is there any way to do this?

Thanks

Sub run()
'
' run Macro
' run solver
'
' Keyboard Shortcut: Ctrl+n
'
Application.ScreenUpdating = False
Range("B4:T13").Select
Selection.Copy
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
SolverOk SetCell:="$W$20", MaxMinVal:=2, ValueOf:=0, ByChange:=Range("$B$23")
SolverSolve UserFinish:=True
Range("B26:U26").Select
Selection.Copy
Range("B27").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("27:27").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("U4:U13").Select
Selection.AUTOFILL Destination:=Range("B4:U13"), Type:=xlFillDefault
Range("B4:T13").Select
Range("D16").Select
End Sub

 

[Andrew Poulsom]

You can use the SolverFinish function to create an answer report:

SolverFinish Function

 

[sjp22]

You can use the SolverFinish function to create an answer report:

SolverFinish Function

That worked perfectly... Thanks for your help