Hi Howard,

Am Mon, 18 Nov 2013 02:33:40 -0800 (PST) schrieb Howard:

Making it find the date seems to be a problem.

try:
Dim FindDate As Double

and then:
Set RngD = .Find(CDate(FindDate), LookIn:=xlValues)


Regards
Claus B.
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2