find loop---looking for a number. works fine with letters

Finally figured it out. Only took me two weeks:
changed

LookIn:=xlValues

to

LookIn:=xlformulas