hi,
Try this function.

Function AddText(CellsToAdd, TextSeperator)
y = CellsToAdd.Cells.Count
i = 1
For i = 1 To y
z = CellsToAdd(i)
k = k & TextSeperator & z
Next i
AddText = k
End Function
' =AddText(A1:E1," ") this example can add all text from range A1:E1 with
space as separator.


"Biff" wrote:

Hi!

Try this:

To concatenate A1 and B1 with a "hard return" in-between:

=A1&CHAR(10)&B1

Format the cell to wrap text:

FormatCellsAlignmentWrap text

Biff

"dabblingandconfused" wrote
in message ...
How do I use concatenate to assemble a string that includes carrage
returns?