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