selection.copy - how emulate Paste command?

T

topola

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
 
D

Dave Peterson

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.)
 
Top