MsgBVox Cells(LastRow,LastCol).Value





'-----------------------------------------------------------------
Function LastRow() As Long
'-----------------------------------------------------------------
LastRow = Cells.Find(What:="*", _
After:=Range("A1"), _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
End Function

'-----------------------------------------------------------------
Function LastCol() As Long
'-----------------------------------------------------------------
LastCol = Cells.Find(What:="*", _
After:=Range("A1"), _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
End Function




--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Raj" wrote in message
...
Hi
Please send me an example code to get the last record number in a
worksheet