Goal Seek in a loop

I have used the following to run a simple goalseek on one line.

Range("AE3").Select
Range("AE3").GoalSeek Goal:=0, ChangingCell:=Range("AA3")

Is it possible to get this doen in a loop acting on every entry in column AE?

Brother wrote:
> I have used the following to run a simple goalseek on one line.
>
> Range("AE3").Select
> Range("AE3").GoalSeek Goal:=0, ChangingCell:=Range("AA3")
>
> Is it possible to get this doen in a loop acting on every entry in column AE?


How about something of the form:

x=3
y$ = "AE" + FORMAT(x,"#")
while range(y$) > 0
Do your stuff here
x = x+1
wend

Bill

Brother wrote:
> I have used the following to run a simple goalseek on one line.
>
> Range("AE3").Select
> Range("AE3").GoalSeek Goal:=0, ChangingCell:=Range("AA3")
>
> Is it possible to get this doen in a loop acting on every entry in column AE?


How about something of the form:

x=3
y$ = "AE" + FORMAT(x,"#")
while range(y$) > 0
Do your stuff here
x = x+1
y$ = "AE" + FORMAT(x,"#")
wend

Bill