Oh yes there is...

Dim LastRow as Long

LastRow = yourSheetName.Cells.Find(What:="*", After:=[A1],
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

....Its my favorite... Enjoy!


On 4 Oct 2006 09:01:31 -0700, "RalphH" wrote:

Is there a better way of finding the last row of a contiguous range
than:

Selection.End(xlDown).Select