Thanks, Otto. Unfortunately when I run this one I get a Systex Error on
the following line:
TheRng.Find(What:=Date, LookAt:=xlWhole).Offset(, 1).Value =
What am I doing wrong?
Thanks again,
Gary
--
GaryCam
------------------------------------------------------------------------
GaryCam's Profile:
http://www.excelforum.com/member.php...o&userid=32330
View this thread:
http://www.excelforum.com/showthread...hreadid=520880