vba find Whole field

[mdavid]

Hi,
Have the following:

If SpeciesID < 600 Then
        Set found = Sheets("Sheet2").Range("C2:C" & totArabic).Find(what:=SpeciesID) 'finds a match
    Else
        Set found = Sheets("Sheet2").Range("B2:B" & totArabic).Find(what:=SpeciesID) 'finds a match
    End If

Problem:
If SpeciesID = 11 .Find(what:=SpeciesID) returns Cell with value 110
How do I ensure the search returns a whole field value?
Thanks

 

[Hui]

Try this:

If SpeciesID < 600 Then
        Set found = Sheets("Sheet2").Range("C2:C" & totArabic).Find(what:=SpeciesID, LookIn:=xlvalues, LookAt:=xlWhole) 'finds a match in Col C
    Else
        Set found = Sheets("Sheet2").Range("B2:B" & totArabic).Find(what:=SpeciesID, LookIn:=xlvalues, LookAt:=xlWhole) 'finds a match in Col B
    End If