something like this

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


--


Gary


"Don" <drwilcox@hotmail.com> wrote in message
news:uxuIv76VGHA.4328@TK2MSFTNGP12.phx.gbl...
> 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
>