Multiple running solver using macros in VBA

[pareek]

Hi

I have a similar issue. Could you help with this?

Before entering loop and running on single row:


Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+s
'
SolverOk SetCell:="$BY$6", MaxMinVal:=2, ValueOf:=0, ByChange:="$CB$6:$CC$6", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$BY$6", MaxMinVal:=2, ValueOf:=0, ByChange:="$CB$6:$CC$6", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
End Sub

After inserting loop:

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+s
'
Dim i As Long
For i = 6 To 7
SolverOk SetCell:=Range("$BY$" & i), MaxMinVal:=2, ValueOf:=0, ByChange:=Range("$CB$:$CC$" & i), _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:=Range("$BY$" & i), MaxMinVal:=2, ValueOf:=0, ByChange:=Range("$CB$:$CC$" & i), _
Engine:=1, EngineDesc:="GRG Nonlinear"
Next i
End Sub


At the end when i re run the code(new modified code) it says Macro1() is not defined.
Caould you tell how do i define macro here?

Regards
Pareek