How to split data in rows within a cell

[kimsa]

I have this data within a cell cars; boats; autos; tractors; buses

I want to sort in alpha order and split the data so each term is on the next line so to look like this within the cell

autos
boats
buses
cars
tractors

 

[Fluff]

How about

Sub kimsa()
   Dim Cl As Range
   Dim Lst As Object
   Dim Sp As Variant
   Dim i As Long
   
   Set Lst = CreateObject("system.collections.arraylist")
   For Each Cl In Range("A2", Range("A" & Rows.Count).End(xlUp))
      Sp = Split(Cl.Value, "; ")
      For i = 0 To UBound(Sp)
         Lst.Add CStr(Sp(i))
      Next i
      Lst.Sort
      Cl.Value = Join(Lst.toarray, Chr(10))
      Lst.Clear
   Next Cl
End Sub

 

[kimsa]

Thank this worked perfect

 

[Fluff]

You're welcome & thanks for the feedback