Hi,
Try this:


Sub SplitMe()

Dim v As Variant

Range("a1").Select
v = Split(ActiveCell, ",")
For i = 0 To UBound(v)
Cells(i + 1, "B") = v(i)
Next i

End Sub


HTH


"Arturo" wrote:

Hello €“
I have a cell whose contents are C,C,C,D,D,C,C,C,C,C
Im looking for direction on how to store that in a variable and spit out
each letter into individual cells. Text to column is not the optimal
approach as there is more to the model that is described here. I need to
learn a different approach€¦

Sincerely,
Arturo