' @Author - Alexander Bolte
' @ChangeDate - 2013-02-23
' @Param searchString - a string beeing sought.
' @Param searchCol - a column in given worksheet beeing searched.
' @Param searchSheet - a worksheet beeing searched.
' @Description - Searches for the first occurance of a string in a given column in a given worksheet.
' @Returns - 0, if the searched string was NOT found. Otherwise the row index the searched string was found in.
Public Function findRowXlWhole(ByVal searchString As String, ByVal searchCol As Integer, ByRef searchSheet As Worksheet) As Long
    Dim myRow As Long
    Dim searchRange As Range
    
    Set searchRange = searchSheet.Columns(searchCol)
    Set searchRange = searchRange.find(searchString, , xlValues, xlWhole)
    
    If Not (searchRange Is Nothing) Then
        myRow = searchRange.Row
    End If
    
    findRowXlWhole = myRow
End Function