Sorting values within cell alphabetically

Hi Excel Forum,

I have a column of cells with months that are out of order.

E.g: "January October November December March April May February June July August September"

Does anyone know of a quick way to sort these by month?

I found this user defined function which sorts by number:

Public Function CellSort(r As Range) As String
    Dim bry() As Long, L As Long, U As Long
    ch = r(1).Text
    ary = Split(ch, ",")
    L = LBound(ary)
    U = UBound(ary)
    ReDim bry(L To U)
    For i = LBound(ary) To UBound(ary)
        bry(i) = CLng(ary(i))
    Next i

    Call BubbleSort(bry)

    For i = LBound(bry) To UBound(bry)
        ary(i) = CStr(bry(i))
    Next i
    CellSort = Join(ary, ",")
End Function


Sub BubbleSort(arr)
    Dim strTemp As Variant
    Dim i As Long
    Dim j As Long
    Dim lngMin As Long
    Dim lngMax As Long
    lngMin = LBound(arr)
    lngMax = UBound(arr)
    For i = lngMin To lngMax - 1
        For j = i + 1 To lngMax
            If arr(i) > arr(j) Then
                strTemp = arr(i)
                arr(i) = arr(j)
                arr(j) = strTemp
            End If
        Next j
    Next i
End Sub

https://superuser.com/questions/7051...-cell-in-excel

Many Thanks

try

Function CellSort(s As String) As String
    Dim x(2)
    x(0) = Split(Application.Trim(s))
    x(1) = [transpose(text(row(1:12)*29,"mmm""*"""))]
    x(2) = Filter(Application.IfError(Application.Match(x(1), x(0), 0), Chr(2)), Chr(2), 0)
    CellSort = Join(Application.Index(x(0), x(2)))
End Function

Thank you very much Bernie and Jindon! Both of these responses work perfectly