' Parse the comma separated string in the current cell into an array

Dim strArray As Variant
Dim intIndex As Integer

strArray = Split(ActiveCell.Value, ",")

If UBound(strArray) < 0 Then
Debug.Print "No string tokens found"
Else
For intIndex = 0 To UBound(strArray)
Debug.Print "Token(" & intIndex & ") = " & strArray(intIndex)
Next intIndex
End If

"pk" wrote in message
...
Does anyone know an easy/efficient method for converting a
comma separated string into a single column array?

i.e. string is passed in this format:

item1,item2,item3,itemx...

I need to parse and copy into an array.

Your example code would be greatly appreciated...thanks in
advance.