hoffstein

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

hoffstein

Function FindWorksheet(sheetName As String) As Worksheet
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name = sheetName Then Set FindWorksheet = ws
    Next
End Function

hoffstein

Function FindColumn(headerText As String, Optional sheetToSearch As Worksheet, Optional headerRow As Integer) As Integer
    Dim foundCell As Range
    If headerRow = 0 Then headerRow = 1
    If sheetToSearch Is Nothing Then Set sheetToSearch = ActiveSheet
    Set foundCell = sheetToSearch.Rows(headerRow).Find(what:=headerText, lookat:=xlWhole)
    If Not foundCell Is Nothing Then
        FindColumn = foundCell.Column
    Else
        Err.Raise Number:=vbObjectError + 1000, Source:="FindColumn", _
            Description:="Column not found: headerText=""" & headerText & _