Help needed with Solver macro
 

I am trying to use following macro, but the Excel stop executing in
after 20 rows and gives me a message: "Unexpected internal error
occured, or available memory is exhausted" without spelling mistakes
obviously :)

Can any1 help with this?
Thank you


Private Sub CommandButton1_Click()

For i = 1 To 290
Application.ScreenUpdating = False


SolverOk SetCell:=Range("$it$4").Offset(i, 0), MaxMinVal:=2,
ValueOf:="0", ByChange:=Range("$hx$4:$hy$4").Offset(i, 0)
SolverAdd CellRef:=Range("$hx$4").Offset(i, 0), Relation:=3,
FormulaText:="0.0000001"
SolverAdd CellRef:=Range("$hy$4").Offset(i, 0), Relation:=3,
FormulaText:="0.0000001"


SolverSolve UserFinish:=True

SolverDelete CellRef:=Range("$hx$4").Offset(i, 0), Relation:=3,
FormulaText:="0.0000001"
SolverDelete CellRef:=Range("$hy$4").Offset(i, 0), Relation:=3,
FormulaText:="0.0000001"
Application.ScreenUpdating = True
Range("it1") = i


Next i


End Sub