Hi - Essentially I need to find how many records in a worksheet.

I can do

Sub test1()
Sheets("Data").Select
Range("A1").Select
Selection.End(xlDown).Select
End Sub

Which taked me to the end of the block of data, but how do I:

a) Find the rownumber the curser stopped at?
b) put the cell address into a cell on a refernce sheet?

Any ideas?

Thanks

Andrew