Find Property of Worksheet Function Class

[DanBlum]

Within a For Each loop, I am using the WorksheetFunction.Find to locate a specific string in another string.
The find works on iteration 1 and 2 but on third gets:


Run-Time Error 1004 ... Unable to get the Find property of the WorksheetFunction class.

Here is the code:

Option Explicit
Sub MoveCCx()
Dim ccnumber As String
Dim Mybody As String


Dim MySubject As String
Dim MyTitlePointer As Integer

Dim olItems As Outlook.items
Dim olItem As Outlook.MailItem
Set olItems = session.getdefaultfolder(olfolderinbox).items
ccnumber = "1234-5678-8901-2345"
For Each olItem In olItems
MySubject = olItem.Subject
MsgBox MySubject, Buttons:=vbOKOnly
On Error GoTo NotFound
MyTitlePointer = 0
MyTitlePointer = WorksheetFunction.Find("WINTER", UCase(MySubject))  '<--PROBLEM
If MyTitlePointer > 0 Then
MsgBox "found  Your " & MyTitlePointer & MySubject
Mybody = olItem.Body & ccnumber
olItem.Body = Mybody
Else

End If
NotFound:
Next olItem

End Sub

The Value of MySubject when the failure occurs is:

Dan Blum- Enjoy clear, simple pricing from the trusted name in online payments. 

What am I doing on the first or second loop iteration to cause this?

I am running on Office 10 on Windows 7

The overall code is part of prototyping to see if I can add some text to specific emails (that have a keyword in the subject line) in my inbox. It works until the third email in the inbox.

Thanks for any help!

[shg]

  MyTitlePointer = InStr(UCase(MySubject), "WINTER")

[mikerickson]

WorksheetFunctions cause errors when they return an error value.

Try Dim MyTitlePointer as Variant

'...
MyTitlePointer = Application.Find("WINTER", UCase(MySubject))
If IsError(myTitlePointer) then 
    MsgBox "Winter not there"
    Exit Sub
End If

Edit: I like shg's InStr as a better solution.

[DanBlum]

Thanks guys!