Refining Famous Search Engine

This line of decides the type of match you are looking for

Set FoundCell = rngParts.Find(What:=PartNumber, After:=LastCell, LookAt:=xlPart) 'Partial match

Set FoundCell = rngParts.Find(What:=PartNumber, After:=LastCell, LookAt:=xlWhole) 'exact match

Second question is already working.

Thank you AB33