Sub sunny()
s = Split(Range("A1").Value, ",")
For i = 0 To UBound(s)
Cells(2, i + 2).Value = s(i)
Next
End Sub

--
Gary's Student
gsnu200702


" wrote:

Would anyone please help me write a VBA progam to do the following:
A cell (e.g. Cell(A1)) contains a string; alphet, 12.3, 23.4, 56.7
Break the string and put each of them in separate cells (e.g.
alphbet in Cell(B2), 12.3 in Cell(C2),
23.4 in Cell(D2), and 56.7 in Cell(E2)).
Thank you,