Macro to perform Goal Seek for many columns

[shastatink]

[FONT=&quot]Hello,i am trying to do what i thought would be a simple macro but its frustrating me!the basic macro is Range("AI136").GoalSeek Goal:=0, ChangingCell:=Range("AI347")so that goal seek will be ran to change the number in row 347 to make 136=0 the problem is i need this donein each of columns AI:CC[/FONT]

 

[BrianJN1]

Here is something that may be of assistance:
Goal Seek in VBA with variables