I presume that you just want to know how to get the last entry

cLastRow = Worksheets("Sheet1").Cells(Rows.Count,"A").End(xlU p).Row

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Anthony Slater" wrote in message
...
With the help of this forum, I've managed to build quite a decent little
user
form for data entry.

Basically, after my user form has been filled in, a button is pressed that
finds the next blank row in a worksheet and fills in the details
accordingly.
The form then resets and awaits a new entry.

How can I add a button that diplays the previous entry?

TIA