Resolved >>> Comma separated values in a cell

@lecxe
--But your function had to be modifed this way to run without error

Function CSV_Item(s As String, i As Integer)
Dim myArray As Variant
myArray = Split(s, ",")
CSV_Item = myArray(i)
End Function

Thanks