Using John Wlakenbach's examples...
'/================================================== =========/
Public Function XDateSerial(Select_Cell As Range) As Double
Application.Volatile
On Error Resume Next
XDateSerial = DateValue(Select_Cell) * 1
End Function
'/================================================== =========/

A1 = 10/15/1930
A2 = 10/15/1850

B1 = XDateSerial(A1) evaluates to 11243
B2 = XDateSerial(A2) evaluates to -17976

Now, it's easy to sort by 'date'.

HTH,
--
Gary Brown

If this post was helpful, please click the ''Yes'' button next to ''Was this
Post Helpfull to you?''.


"Bob Matthews" wrote:

I have a date field with dates ranging from the 1850s through to 1930 with
dd/mm/yyyy
I know about xdate - to handle dates before 1900

Is it possible to sort on this field successfully ?
If so, how ?

Bob M