For i = 12 To fin
If Not Sheets("SEARCH ENGINE").Range("c" & i & ":f" & i).Find(True) Is Nothing Then
val = Sheets("SEARCH ENGINE").Range("A" & i).Value
MsgBox val
Set r = Sheets("PRODUCT KNOWLEDGE").Rows(2).Find(val, , xlValues, xlWhole)
If Not r Is Nothing Then col = r.Column
MsgBox col
End if
Next