Hi. Double check...
http://support.microsoft.com/kb/213689/en-us

One option...

Sub Demo()
Dim R As Long 'Row

'If you wish...
SolverOptions Precision:=0.000000001
SolverOptions Convergence:=0.000000001

R = ActiveCell.Row
SolverOk Cells(R, 14), 3, 0, Cells(R, 12)
SolverSolve True '<-- Run Solver
End Sub

--
HTH :)
Dana DeLouis
Windows XP & Office 2003


"blenno" wrote in message
...
I would like to use solver for equations in certain locations in a sheet.
To do this I would like to pass the activerow to the solver arguments. I
was able to do something similar in GoalSeek but it doesn't work in Solver.
Here's my code

activerow = ActiveCell.Row

SolverOk SetCell:=Cells(activerow, 14), MaxMinVal:=3, ValueOf:="0",
ByChange:=Cells(activerow, 12)

I'm not sure I understand why this doesn't work but hopefully there's a
simple solution

Any help is appreciated.