Macro - Repeat macro a specific number of times

Hi everyone,

I'm working with an assignment and i have come across following problem.

I need to run the following solver macro for the objective cell range P25:P78.

what I'm doing is, I enter a value to the G25 (actually values to the cell range G25:G78). Here G25=260.
I need to get the root of the equation entered in the objective cell(P25) and root will be displayed in the J25.
The following code is generated for P25. I need to get a code to repeat this process in the cell range P25:P78.

Sub Solve_n_repeat()
'
' Solve_n_repeat Macro
' Solve for R1 and repeat
'
' Keyboard Shortcut: Ctrl+r
'
    Range("G25").Select
    ActiveCell.FormulaR1C1 = "260"
    Range("P25").Select
    SolverOk SetCell:="$P$25", MaxMinVal:=3, ValueOf:=0, ByChange:="$J$25", Engine _
        :=1, EngineDesc:="GRG Nonlinear"
    SolverOk SetCell:="$P$25", MaxMinVal:=3, ValueOf:=0, ByChange:="$J$25", Engine _
        :=1, EngineDesc:="GRG Nonlinear"
    SolverSolve
End Sub

Please help me.
Thanx in advance!!

Hi,
Thanx for your help. I think I got it correct after some adjustments. here is my new code.

Sub Solve()
Dim i As Long
' Solve Macro
' use solver function
'
'Keyboard Shortcut: Ctrl+r

With Worksheets("Flame cal")
    For i = 25 To 78
        SolverOk SetCell:="$P$" & i, MaxMinVal:=3, ValueOf:=0, ByChange:="$J$" & i, Engine _
            :=1, EngineDesc:="GRG Nonlinear"
        SolverOk SetCell:="$P$" & i, MaxMinVal:=3, ValueOf:=0, ByChange:="$J$" & i, Engine _
            :=1, EngineDesc:="GRG Nonlinear"
        SolverSolve
    Next i
End With
End Sub

In this way I'm getting my solution but for each and every cell($P$) the solver results pop-up window appears and I have to click the "OK" for 54 times. Is there any way to avoid that.

In my solution I have removed

.Range("G" & i).Value = "260"

part because I'm entering different values(not 260 for all the cells).
Is there any method to write a code to get "the value I'm entering" instead of "260".

Thanx for the help!!

Hi,
It's working nicely. this is what I required. thanx for all!!

Thanks for feedback and rep!

Alf