Function to Get Last Used Row From Excel Worksheet

Function which will get the last used cell in an excel worksheet.

This function will return the last used cell from a given worksheet.

Public Function GetLastCell(ws As Worksheet) As Range
Dim rngResult As Range
    On Error GoTo ErrHandler

    Set rngResult = ws.UsedRange.SpecialCells(xlCellTypeLastCell)

ExitPoint:
    On Error GoTo 0
    Exit Function

ErrHandler:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure GetLastRow"
    GoTo ExitPoint
    Resume
    Resume Next
End Function