Excel find last column

gistfile1.vb

Function FindLastColumn(Optional sheetToSearch As Worksheet) As Long
    If sheetToSearch Is Nothing Then Set sheetToSearch = ActiveSheet
    On Error GoTo handler
    FindLastColumn = sheetToSearch.Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    Exit Function
handler:
    FindLastColumn = 1 ' No data on sheet
End Function