Hunu

Function find_str_in_a_column(str_to_find As String, col_no As Integer, wws As Worksheet) As Integer
'In {wws}(working worksheet), column of {col_no},RETURN the row number of the first cell which contains {str_to_find}
'Or return -1 if not found
    
    Dim arr()
    Dim re As Integer
    Dim i As Integer
    With wws
        re = .Cells(65536, col_no).End(xlUp).Row
        arr = .Range(.Cells(1, col_no), .Cells(re, col_no)).Value2