Const WHAT_TO_FIND As String = "Supplier"
Dim ws As Excel.Worksheet
Dim FoundCell As Excel.Range
Set ws = ActiveSheet
Set FoundCell = ws.Range("J:J").Find(what:=WHAT_TO_FIND, lookat:=xlWhole)
If Not FoundCell Is Nothing Then
MsgBox (WHAT_TO_FIND & " found in row: " & FoundCell.Row)
Else
MsgBox (WHAT_TO_FIND & " not found")
End If
And please don't tell me that the Find function is not supported and that you will pass it to your developers and it MIGHT be added to your system in the far far future. That is almost always your answer and it is quite frustrating.