selection.copy - how emulate Paste command?
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
|