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

To avoid stopping at a gap in the data it's usually better to start at the bottom....

dim r as range

set r=sheet1.cells(sheet1.rows.count,1).end(xlup)

then you can use

r.row
r.address



--
Tim Williams
Palo Alto, CA


"Andreww" wrote in message ps.com...
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

Splendid!

I'll try it in the morning.

Regards

Andrew