Find Using VBA

What is your code that your using. The following is from the XL VBA Help

With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Interior.Pattern = xlPatternGray50
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

Essentially what .Find does is return a range object that has the first instance of the searched for string. So you need to check to see if the object has been created essentially.

Or if you recorded the find from the worksheet you'll need to get the current address of the current cell then run the find and compare the new address. If the address didn't change then the string wasn't found.

But it would be best to see the code that you're using.

Regards

Hi Ram P,

Working on a little from the example iwrk4dedpr posted.

With Worksheets(1).Range("a1:a500") 
    Set c = .Find("Time", lookin:=xlValues) 
    If Not c Is Nothing Then 
        ' code here when found
    else
        ' code here when NOT found
    End If 
End With

The use of Address in the previous example is used when you want to find all occurances of the text you are searching for. It stop the search cycling thru the same information twice.