Hi Don, Try this....

Dim LastRow as Long
LastRow = Range("A2").End(xlDn).offset(1,0).Row

This will find first empty in the list/Column or find the bottom of the list


HTH, Rick




"Don" wrote in message
...
Ok, I know I've seen this before, but I'm sorry, but I've lost my
reference.

Please, would someone post the snipit for finding the next empty cell in a
list/column.

Thanks,
Don