Tom Ogilvy Wrote:
just a typo

DateSerial(year(date),month(dt)-i,1)

should be

DateSerial(year(date),month(date)-i,1)



Thanks Tom! The VB Marco works perfectly!!!

Thanks a bundle for your A+ answer

--
Lotus12
-----------------------------------------------------------------------
Lotus123's Profile: http://www.excelforum.com/member.php...fo&userid=2861
View this thread: http://www.excelforum.com/showthread.php?threadid=54951