goal seek and vba

[pbarreda77]

Sub goalseek()

Range("AB100").goalseek Goal:=0, ChangingCell:=Range("AB104")
End Sub

Above is a macro for goalseek can anyone help with how to write the vba code that would allow me to run goalseek on say 10 cells from left to right all cells being in row 100. Example the next goalseek would use "AC100" and "AC104" etc etc etc

thank you all

 

[pbarreda77]

Ladies and Gents I think I 've got it

Sub Commandbutton_click()
Dim i as integer

For i 5 to 100
cells.Item(100,i).select
Selection.goalseek goal:=0, ChangingCell:=selection.Offset(4,0)

Next i

End Sub
This message was edited by pbarreda77 on 2002-10-29 11:15