Find Data

[collamack]

hai,

got problem again. here, i plan to put 'Find' function. but i want the form will find only the exact data.

example:
if user type apple, it'll only find 'apple' not apple 2, or applet or etc.

This is my code:

    
    Dim strFind, FirstAddress As String   'what to find
    Dim rSearch As Range  'range to search
    Dim rSearchPond As Range
    Dim strFindPond As String
    
    Set rSearch = CustomerProfile.Range("a8", Range("a65536").End(xlUp))
    strFind = Me.comName.Value    'what to look for
    Dim f      As Integer
    With rSearch
        Set c = .Find(strFind, LookIn:=xlValues)
        If Not c Is Nothing Then    'found it
            c.Select
            With Me
            End With
            FirstAddress = c.Address
                Set c = .FindNext(c)
        End If
    End With
End Sub

Please..