Hi

For i=1 To 500
varValue=ActiveSheet.Range("A" & i).Value
Next i


Arvi Laanemets


"SteveF" wrote in message
...
I have a macro that runs well down a column but I need to define the
Do Until
statement to stop it at row 500 and am stumped on how to do this.
Please help with this simple request. Thanks
Steve