array of dates VBA

[ericlch16]

I have an array of dates.

12-jan-2010
11-Feb-2009
8-dec-2012
5-nov-1980
8-sep-2012
8-jul-2011
6-feb-2009

how do i get the 5th earliest date? in this case after sorting it will be 8-jul-2011? how to do that in VBA??

thanks

 

[shg]

As a formula, =small(A1:A7, 5)

 

[cstimart]

Function Fifth_date()
Fifth_date = Application.Small(Range("A:A"), 5)
End Function