Function TheName(rng As Range) As String
For Each nms In Names
If rng = Range(nms.Value) Then TheName = nms.Name: Exit Function
Next
End Function

=TheName(A1)

isabelle

Le 2015-04-10 13:31, mg a écrit :

Thanks. That sorts the date data without any UDF
but I now need the name of each of those named ranges returned in the next
column based on the sort.
If the dates were unique I could easily do a lookup but there may be duplicate
dates.

That is why I was leaning towards the UDF that could somehow sort the date-name pairs and return a sorted array.