Getting Error in Application.WorksheetFunction

[akhendre88]

I am trying to use Application.WorksheetFunction
But getting an error "Object doesn't support this property or Method"
Below is my code

Sub test()
Dim a As String
Dim b As Long, c As Long

a = "This is testing"

c = Application.WorksheetFunction.Find("is", a)

MsgBox c

End Sub

Please suggest

 

[Fluff]

Re: Getting Errpr in Application.WorksheetFunction

Try

Sub test()
Dim a As String
Dim b As Long, c As Long

a = "This is testing"

c = InStr(a, "is")

MsgBox c

End Sub

 

[akhendre88]

Re: Getting Errpr in Application.WorksheetFunction

Thank you for your reply.
But I would like to know how can I do this using WorksheetFunciton.

 

[Fluff]

Re: Getting Errpr in Application.WorksheetFunction

Your code works for me, so not sure why it's not working for you.
Also InStr is the VBA version the worksheetfunction.find, so is probably better to use.

 

[MARK858]

Re: Getting Errpr in Application.WorksheetFunction

Have a look at your find settings manually and see if it set up as match entire cell contents.

 

[RoryA]

Re: Getting Errpr in Application.WorksheetFunction

@MARK858
Range.Find is not the same as Application.Worksheetfunction.Find.

 

[MARK858]

Re: Getting Errpr in Application.WorksheetFunction

My bad... Not thinking