IsNumberSearch function available in VBA?

[AlaskanVBA]

How are we able to get the following excel formular to work properly in VBA?

<TABLE class=collapse id=NestedTable2 name="NestedTable2"><TBODY><TR class=trbgodd><TD>=IF(ISNUMBER(SEARCH("v",A2)),"OK", "Not OK")</TD><TD>Checks to see if A2 contain the letter v (OK)</TD></TR><TR class=trbgeven><TD>=ISNUMBER(SEARCH("BD",A3))</TD><TD>Checks to see if A3 contains BD (TRUE)</TD></TR></TBODY></TABLE>

below code returns an error.

Application.WorksheetFunction.If.Isnumber.Search("v",Cells(1,2)),"OK","Not OK")

 

[shg]

If InStr(Range("A2").Text, "v") Then
    do something

 

[Smitty]

Welcome to the Board!

If isn't available as a VBA worksheetfunction.

But you can do something like this:

<font face=Calibri><SPAN style="color:#00007F">Sub</SPAN> foo()<br>    <SPAN style="color:#00007F">Dim</SPAN> x<br>        x = Evaluate("IF(ISNUMBER(SEARCH(""v"",A2)),""OK"", ""Not OK"")")<br>        Debug.Print x<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

HTH,