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

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

something like this

Sub test()
Dim LastRow As Long
LastRow = Range("A1").End(xlDown)(2).Row
Debug.Print LastRow
End Sub


--


Gary


"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

Just use CTRL & either the up or down arrow after selecting any cell in a
column

A White
----------------------------------------------------------------------------
-------
All Outgoing Mail Checked By Norton Anti-Virus 2003
----------------------------------------------------------------------------
-------

"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