ok so some of your examples make this more difficult with having other words and things in the phrases. I think the best way might be a UDF along the lines of:
Public Function Get_month(str)
Dim count, count1
str = Split(Replace(str, "/", " "), " ")
count = 0
Do Until str(count) = "January" Or str(count) = "February" Or str(count) = "March" _
Or str(count) = "April" Or str(count) = "May" Or str(count) = "June" _
Or str(count) = "July" Or str(count) = "August" Or str(count) = "October" _
Or str(count) = "October" Or str(count) = "November" Or str(count) = "December"
count = count + 1
Loop
For count1 = LBound(str) To UBound(str)
If Len(str(count1)) = 4 And Left(str(count1), 2) = "20" Then
Get_month = CDate("01 " & str(count) & " " & str(count1))
Exit Function
End If
Next count1
End Function
Press Alt+F11 to open the vba editor, click insert-> module and then copy that code in.
Then on your worksheet, in H8 put:
=IF(ISNUMBER(A8),A8,Get_month(A8))
and copy down, you can then sort by this column.
Bookmarks