Nevermind,
Again, assuming column A with data starting in row 2:
[vba]With ActiveSheet
.Range("B10").Formula = _
"=IF(SUMPRODUCT(--(YEAR(A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row & _
")=YEAR(A2)))=COUNT(A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row & "),""Yes"",""No"")"
End With[/vba]
Ken Puls, CMA - Microsoft MVP (Excel)
I hate it when my computer does what I tell it to, and not what I want it to.
Learn how to use our KB tags! -||- Ken's Excel Website -||- Ken's Excel Forums -||- My Blog -||- Excel Training Calendar
This is a shameless plug for my new book "RibbonX - Customizing the Office 2007 Ribbon". Find out more about it here!
Help keep VBAX clean! Use the 'Thread Tools' menu to mark your own threads solved!
Posting Permissions
Reply With Quote