Sheets("Sheet1").Cells(1, 1) = _
Sheets("Sheet2").Cells(1, 1) & chr(10) & _
Sheets("Sheet2").Cells(1, 2) & chr(10) & _
Sheets("Sheet2").Cells(1, 3) & chr(10) & _
Sheets("Sheet2").Cells(1, 4) & chr(10) & _
Sheets("Sheet2").Cells(1, 5) & chr(10) & _
Sheets("Sheet2").Cells(1, 6)

--
Regards,
Tom Ogilvy

"CG Rosén" wrote in message
...
Good Evening Group,

Is it possible to force a new line by code after each textstring that goes
into
Sheets("Sheet1").Cells(1, 1). This cell is formated as "Wrap Text". The
length
of the textstring is variable. (See code below).

Sheets("Sheet1").Cells(1, 1) = _
Sheets("Sheet2").Cells(1, 1) & " " & Sheets("Sheet2").Cells(1, 2) & " " &
_
Sheets("Sheet2").Cells(1, 3) & " " & Sheets("Sheet21").Cells(1, 4) & " "
&
_
Sheets("Sheet2").Cells(1, 5) & " " & Sheets("Sheet2").Cells(1, 6)

Grateful for any help.

Brgds

CG Rosén