An untested suggestion

Sub solvit()
SolverReset
val =Range("N16)
SolverOk SetCell:=("J16"), MaxMinVal:=3, ValueOf:=val, ByChange:=("N16")
End Sub

best wishes
--
Bernard V Liengme
Microsoft Excel MVP
http://people.stfx.ca/bliengme
remove caps from email


"ORLANDO VAZQUEZ" wrote in
message ...
For example, the ValueOf:= below should reference a cell on the
spreadsheet
that contains the value instead of having to type in the value.

Sub solvit()
SolverReset
SolverOk SetCell:=("J16"), MaxMinVal:=3, ValueOf:=0.0125,
ByChange:=("N16")
End Sub

--
Orlando Vazquez


"ORLANDO VAZQUEZ" wrote:

Hi !

Is there a way I can use Solver in a vb formula so that the "Value of"
value
equals a cell reference?

Thank you.

--
Orlando Vazquez