Give these a try...

LastUsedRow = ActiveSheet.Cells.Find(What:="*", _
SearchDirection:=xlPrevious, _
SearchOrder:=xlRows).Row

LastUsedColumn = ActiveSheet.Cells.Find(What:="*", _
SearchDirection:=xlPrevious, _
SearchOrder:=xlByColumns).Column

--
Rick (MVP - Excel)


"John" wrote in message
...
How can I quickly find the last used row and column of a worksheet?

I appreciate your help, -John