need a macro to remove brackets and single quotes and sort

[kimsa]

I have words in a cell cell and would like to have the brackets and single quotes removed and put in alpha order.
I have this in a single cell: ['red', 'blue', 'green', 'yellow']. I want this in a single cell:

blue
green
red
yellow

 

[Fluff]

How about

Sub SplitSort()
   Dim Lst As Object
   Dim Elm As Variant
   Dim Cl As Range, Rng As Range
   Dim Wrd As String
   
   Set Lst = CreateObject("system.collections.arraylist")
   Set Rng = Range("A2", Range("A" & Rows.Count).End(xlUp))
   Rng.Replace "'", "", xlPart, , , , False, False
   Rng.Replace "[", "", xlPart, , , , False, False
   Rng.Replace "]", "", xlPart, , , , False, False
   For Each Cl In Rng
      For Each Elm In Split(Cl, ", ")
         Lst.Add Elm
      Next Elm
      Lst.Sort
      Cl = Join(Lst.toarray, Chr(10))
      Lst.Clear
   Next Cl
End Sub

 

[kimsa]

yes that worked thank you

 

[Fluff]

You're welcome & thanks for the feedback