hi,

if the delimiter is comma "," then;

Range("A1").TextToColumns DataType:=xlDelimited, ConsecutiveDelimiter:=True, Other:=True, OtherChar:=","

otherwise change the comma "," to another delimiter


--
isabelle