Solver formula "Equal to Value of:" cell reference

[reddy888]

Is there a way I can use Solver in a vba formula so that the "Value of" value equals a cell reference? I need to run across solver function across several names. Assuming value of is in Column B, and Changing cells in column C.

 

[reddy888]

below is the macro i came up with but was not able to get the right Cell reference for Valueof..I appreciate your timely response. Thanks in advance!!

Sub MacroSolve()
Worksheets("Sheet1").Activate
Rowcount = 19
Do While Not IsEmpty(Worksheets("Sheet1").Range("A" & Rowcount))
SolverReset
SolverOptions precision:=0.001
SolverOk SetCell:=Range("H" & Rowcount), _
MaxMinVal:=3, _
ValueOf:=Range("A" & Rowcount), _
ByChange:=Range("G" & Rowcount)
SolverSolve userFinish:=True
SolverFinish keepFinal:=1
Rowcount = Rowcount + 1
Loop
MsgBox "processing over"
End Sub