This works very well thanks

"Gary''s Student" wrote:

Try this small macro:

Sub rowmaker()
v = ActiveCell.Value
s = Split(v, Chr(10))
For i = 0 To UBound(s)
ActiveCell.Offset(i + 1, 0).Value = s(i)
Next
End Sub

Select the cell and run the macro
--
Gary''s Student - gsnu200846


"Phippsy" wrote:

I have text in a cell which has been forced onto separate rows within the
same cell. Can I split this into several rows so there is one line in each
new row?