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,