Here is the macro that concatenates the cells contents in one string.
I've manage to display the result in MsgBox. Now I would like to be
able to use it as a "PASTE" command. Do you have any ideas?

Sub Macro1()
Result = ""
For Each cell In Selection
Result = Result & " " & cell.Text
Next
MsgBox Result
End Sub

Tnkx in advance, tp

How about just plopping that value into the cell you want.

Sub Macro1()
Dim Result as String
dim Cell as Range

Result = ""
For Each cell In Selection
Result = Result & " " & cell.Text
Next cell

'MsgBox Result

Activesheet.range("a1").value = Result

End Sub

(I like to declare my variables.)

topola wrote:

Here is the macro that concatenates the cells contents in one string.
I've manage to display the result in MsgBox. Now I would like to be
able to use it as a "PASTE" command. Do you have any ideas?

Sub Macro1()
Result = ""
For Each cell In Selection
Result = Result & " " & cell.Text
Next
MsgBox Result
End Sub

Tnkx in advance, tp

--

Dave Peterson