Multiple Goal Seek
Hello,
I am not sure what is wrong with my code. I want to change the cells in
worksheet bb to 0 by changing the cells in ci. Example: changin h12 in ci to
get 0 in h158 in bb
sub gg()
Dim c As Object
For Each c In Worksheets("bb").Range("d158:ay158")
c.GoalSeek Goal:=0, ChangingCell:=Worksheets("ci").Range("d12:ay12")
Next
End Sub
thanks,
|