Excel goal seek code

Question

I tried to use looping with the goal seek in excel but cannot work, would you please correct the code below

Private Sub CommandButton1_Click()

   On Error Resume Next
   Application.ScreenUpdating = False
   Application.Calculation = xlCalculationManual
   Dim i As Integer
   i = 5
   Do While Cells(i, 9) <> ""
   Cells(i, 7).Value = Range("H5").GoalSeek Goal:=Range("I5").Value,       ChangingCell:=Range("A5")
   i = i + 1
   Loop
   Application.Calculation = xlCalculationAutomatic
   Application.ScreenUpdating = True
End Sub

Answer 1

Remove "Cells(i, 7).Value =" from the below line.

Return type of goal seek is Boolean.

value is a variant.

Range("H5").GoalSeek Goal:=Range("I5").Value, ChangingCell:=Range("A5")

Answer 2

Finally I get the solution for this issue, just to get the benefit of it all please see below answer.

Private Sub GoalSeek()


Dim i As Long
For i = 4 To 6
    Range("H" & i).GoalSeek Goal:=Range("I" & i).Value, ChangingCell:=Range("A" & i)
Next
End Sub