It will be interesting to see others' solutions, but I think, instead of
what you've got, I'd do:
If oldate=Date
'make calender code'
end if
next x
--
MrShorty
------------------------------------------------------------------------
MrShorty's Profile:
http://www.excelforum.com/member.php...o&userid=22181
View this thread:
http://www.excelforum.com/showthread...hreadid=377526