sorting date's by date number

Hi, Try this:- Results start "B1".

Sub MG26Jan53
Dim Rng As Range, Ray, I As Integer, J As Integer, Temp2
Dim Jd As Integer, Id As Integer
Set Rng = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
Ray = Rng
For I = 1 To UBound(Ray)
   For J = I To UBound(Ray)
        Jd = Split(Ray(J, 1), "/")(0)
        Id = Split(Ray(I, 1), "/")(0)
        If Jd < Id Then
            Temp2 = Format(Ray(I, 1), "dd/mm/yy")
                Ray(I, 1) = Format(Ray(J, 1), "dd/mm/yy")
                  Ray(J, 1) = Temp2
         End If
   Next J
Next I
Range("B1").Resize(UBound(Ray)).Value = Ray
End Sub

Regards Mick