finally got it . I change the Find(c.value) to Find(c,Matchbyte:=xlValue) to avoid part of the numbers to be find