Finding Last Row

[Clint]

In a worksheet that someone can enter as many rows of
data as they want, is there an easy way of finding the
last row that data has been entered to for looping
purposes? thanks!

 

[Tom Ogilvy]

Dim rng as Range, cell as Range
set rng = Range(cells(1,1),Cells(rows.count,1).End(xlup))
for each cell in rng

Next