Andy,

Try this (as an example) - names in B1 are placed in cells C
onwards:


HTH

Sub x()
Dim v As Variant

v = Split(Range("b1"), Chr(10))

r = 1
For i = 0 To ubound(v)
Cells(r, i + 3) = v(i)
Next i

End Sub



"Andibevan" wrote:

I have a table of data that displays Mothers Name in Column A and Children
in a column B

Where one mother has multiple children I have been entering all the children
in a single cell, seperated by using Alt+Enter

How would I seperate the contents of the cells in column B so that each
child occupies an individual row?

Thanks

Andy