If you are looking for partial matches then then , LookAt:=xlWhole should be , LookAt:=xlPart? In range.find
, LookAt:=xlWhole
, LookAt:=xlPart