Goal seek help

[rodney10954]

Not sure how goal seek works but im trying
basically i need to run a goal seek and put the answer in "J51" by changing "G51"
setting the goal to .12 which is in "f16" i have to do this in coulmn g51 and go down 17 times each row i need to goal seek a differnt number so next one is "g52".....



Sub Gseek()
Range("j51").Resize(Range("Size").Value, 1).Select

Dim cell As Range, myRng As Range
Set myRng = Selection

For j = 10 To 1
Range("F16").GoalSeek Goal:=0.12, ChangingCell:=Range("G51")
Next j
End Sub

 

[rodney10954]

can i use solver for this?

 

[rodney10954]

i dont want to lose my original values either