VBA to goalseek across column

[hassanm]

Hi,

I need a VBA to code to goalseek multiple cells to 0 by changing multiple cells.

I have a range of set cells (EA44:GH44) to Value of 0 by changing cells (BP44:DW44). I have written a code but I am not sure if it works. I wanted to check before running the macro.

Public Sub A()
  Dim iRow         As Long
  Dim iCol          As Long

  For iRow = 44
    For iCol = Columns("BP").Column To Columns("DW").Column
      With Cells(iRow, iCol + 63)
        .GoalSeek Goal:=0, ChangingCell:=.Offset(, -63)
      End With
    Next iCol
End Sub

Thanks