wrote in
:

Greetings All,

I have a column of about 30 values. I would like to paste all these
values into one cell.

I tried Edit -Paste Special and choose "value" and "transpose" but it
paste each value into it's on cell. I would like to paste all these
values into one cell.

TIA
sal



I found that I have to code it here is the code

Sub col_to_cel()
Dim str As String
Dim c As Range, rn As Range

Set rn = Selection
str = ""
strtest = "the"
For Each c In rn.Cells
str = str & "" & c.Value
Next
str = Right(str, Len(str))
rn.Offset(1, 0).Cells(rn.Rows.Count, 1).Value = str

End Sub