one way

Sub test()
arr = Split(Trim(Range("a1")), ",")
Range("b1:f1").Value = arr
End Sub


Gary


"QTGlennM" wrote in message
oups.com...
I have data in cell A1 that looks like this. I want to be able to
seperate it with the left right mid functions into B1,C1, D1, E1, F1,
and get rid of the comma's. Any help would be greatly appreciated.

25632, 27865, 456456, 987456, 789456

thanks Glenn