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

findLastColumn

'A helper function to find the final column 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 column number of the column of data
'
'Author: Steve Henderson  steven.henderson@usma.edu
'
Function findLastColumn(sheetName As String)
    ' Find the last column with data
    Set WS = Worksheets(sheetName)
    findLastColumn = WS.Cells(1, Application.Columns.Count).End(xlToLeft).Column
End Function