You need to instantiate separate range vars so you're not
using/changing *CheckNum* in every iteration of your loop. So...

For Each CheckNum...
'..some code
Set CheckNum = .UsedRange.Find(What:=CheckNum...

How about something like this...

For Each CheckNum...
'..some code
Set rngFound = .UsedRange.Find(What:=CheckNum.Value...

-OR-

For Each rng...
'..some code
Set rngFound = .UsedRange.Find(What:=CheckNum.Value...

...not just so *you* know what your code is doing, but so *your code
knows* what it's supposed to be doing!<g

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion