Unknown function: Find

Unknown function: Find

Hi There,

Here is the code:


    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


Here is the Error Msg:
Unknown function: Find

Why?

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.

Thanks 
O-Ren