You can't used findnext recusively. The findnext uses the last find's
what property. You have to use find instead of findnext. Try this
chage


from
Set C = .FindNext(C)
to
Set C = .Find(datetofind, after:=c, LookIn:=xlValues)


--
joel
------------------------------------------------------------------------
joel's Profile: 229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=193644

http://www.thecodecage.com/forumz