multiple iterations for a pair of goalseeks

[pingpong777]

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+g
'
Range("g68").GoalSeek Goal:=Range("g61"), ChangingCell:=Range("g63")
End Sub

Sub Macro2()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+g
'
Range("g78").GoalSeek Goal:=Range("g71"), ChangingCell:=Range("g73")
End Sub

hi. i have the 2 above goalseeks, and i need to run the pair of them multiple times. i'm sure this is a very simple addition, but how do i input the number of repetitions/iterations for this pair of goalseeks? i would like to link it to a cell in the worksheet, say cell g60 (if cell g60=10, run the pair of goalseeks 10 times).


thanks,

pingpong777

 

[Andrew Poulsom]

I'm not sure why you would want t run the same Goal Seek multiple times, but give this a try:

Sub RunThem()
    Dim i As Long
    For i = 1 To Range("G60").Value
        Call Macro1
        Call Macro2
    Next i
End Sub

 

[pingpong777]

hi, thank you. the 2 macros are different. I don't have everything laid out yet, so i don't know what the actual cell references will be, so i just picked some random numbers for the rows and made the 2 macros 10 rows apart.

the reason i have the pair and want to repeat 10 cycles is when i run macro, the change cell impacts the target cell for macro 1. so runnig macro 2 will knock macro 1 out of balance, so i want to go through some iterations to find a solution fo macro 2's change cell that also accomodates macro 1.

thanks again for your help!