I tried a method to automate solver using a macro to calculate a
result for each of 97 rows. it only calculates the 1st two rows. can
someone point out what is wrong please? i tried two different ways,
but neither work - clearly i have no idea what i am doing!

Sub Macro10()
Dim i As Long
For i = 3 To 100
SolverOk SetCell:=Cells(i, 61).Address, MaxMinVal:=2, ValueOf:="0",
ByChange:=Cells(i, 49).Address
Next i
SolverSolve UserFinish:=True
End Sub

Sub Macro11()
'
' Macro11 Macro
' Macro recorded 5/23/2006 by .
'
Dim i As Long
Do While i < 15
SolverOk SetCell:=Cells(i, 61).Address, MaxMinVal:=2, ValueOf:="0",
ByChange:=Cells(i, 49).Address
SolverSolve UserFinish:=True
i = i + 1
Loop
'
End Sub