Do until null
Range("a1").Offset(1, 0).Select
Loop


I am trying to find the next blank cell in a column to paste value
into. I thought this simple loop would do it, but it gets stuck a
this point. I am just beginning and would really appreciate your help
Thanks

--
Message posted from http://www.ExcelForum.com

Range("A1").Select
do while not isempty(activeCell)
activeCell.offset(1,0).Select
Loop

or

Range("A65536").End(xlup)(2).Select

--
Regards,
Tom Ogilvy


"trickdos " wrote in message
...
Do until null
Range("a1").Offset(1, 0).Select
Loop


I am trying to find the next blank cell in a column to paste values
into. I thought this simple loop would do it, but it gets stuck at
this point. I am just beginning and would really appreciate your help.
Thanks.


---
Message posted from http://www.ExcelForum.com/

try incorporating this
x=range("a65536").end(xlup).row+1
--
Don Guillett
SalesAid Software

"trickdos " wrote in message
...
Do until null
Range("a1").Offset(1, 0).Select
Loop


I am trying to find the next blank cell in a column to paste values
into. I thought this simple loop would do it, but it gets stuck at
this point. I am just beginning and would really appreciate your help.
Thanks.


---
Message posted from http://www.ExcelForum.com/