Find function not recognized in my code

[cmancu]

Trying to write some code to look at each populated cell in column "I" and check for a specific character. Finding it will print a message in adjacent cell to the cell of found character.
I have:

' Check for Group Notations and then print note
    LR = Sheet1.Cells(Rows.Count, 9).End(xlUp).Row
    For c = LR To 1 Step -1

    If WorksheetFunction.Find("K", Range("I" & c)) > 0 Then
        Range("J" & c) = "Hooray, I found it!"
        Else
        Range("J" & c) = ""
    End If
    Next c

Would anyone be able to tell me why I get an error on the "If" line.
Error is "Unable to get the Find property of the Worksheetfunction class"

Thank you for looking.

Chris

 

[VoG]

Try

If InStr(Range("I" & c).Value, "K") > 0 Then

 

[cmancu]

That is the ticket! Thank you, thank you.

Funny thing is, I was playing with InStr to begin with, but just wasn't grasping the syntax.

Have a good day!