A VBA helper function to find the final row of data on a worksheet (VBA, row, last, find)

findFinalRow

'findFinalRow
'A helper function to find the final row of data on a worksheet
'
'To use, provide the name of the worksheet
'The function assumes the data starts in cell A1
'and will return the row number of the last row of data
'
'Author: Steve Henderson  steven.henderson@usma.edu
'
Function findFinalRow(sheetName As String)
    'Set the Worksheet Name
    Set WS = Worksheets(sheetName)
    ' Find the last row with data
    findFinalRow = WS.Cells(Application.Rows.Count, 1).End(xlUp).row
End Function