948 Steps to 6 Figures by Learning Excel-VBA and Other Skills

Step - FindDataRow

Function FindDataRow(sSearch, c As Long) As Long
'Version: 1.002
' 1.002 Change search from xlValues to xlFormulas as xlValues doesn't work if column shows number as

' 1.001 Speed up using Find insted of for - next
'Purpose: This program finds the passed sSearch in column c
' and returns the row or 0 if not found. Finds the first Exact match
    On Error Resume Next
    ActiveSheet.Cells(4, c).Select
    ActiveSheet.Columns(c).Select
    Selection.Find(What:=sSearch, After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase _
        :=False, SearchFormat:=False).Activate
    If Err = 0 Then
        FindDataRow = ActiveCell.Row
    Else
        FindDataRow = 0
    End If

End Function