there isn't any magic way to know the date contained in the cell.

You could use a dummy column with a formula

=if(Year(a1)<Year("a2"),na(),"")

copy this down your dummy column. This marks the first date in each new
year.

then
set rng = Columns(4).SpecialCells(xlFormulas,xlErrorvalues)

--
Regards,
Tom Ogilvy


"Larry Levinson" wrote in message
...
In column A I have a list of dates, arranged in descending order, most
recent to oldest. I need to know where one year starts and another
ends to do a year_to_date calculation. I can test each cell for
datevalue being more than Jan. 1, but I would like to save cycles by
going to the end of January first and THEN comparing the datevalue of
the active cell ... also, I can not be sure that I have an entry for
each CALENDAR day ... (so, no, I can't just search for Jan. 31. By the
same token, I can't just search for Jan. 1)

Larry Levinson
Talking up to the vocal ...
LLevinson*Bloomberg.net
(remove the star etc ....)