No prob. I guess your approach is somewhat better since I can use it for
severel other tasks. I have tried it, but the "new DataObject" dosent seem to
work. I guess it is my lack of knowledge on this subject that dosen't get it
to work though..

Regards
OTS

"Michi" wrote:

Sorry, I've not seen the last answer ....

"Michi" wrote:

Hi ! I have made a litlle programm fpr your problem.
Create a button and write code like you see here in the modul:

Sub Button1_Click()

Dim oData As New DataObject
Dim sText As String

For Each cell In Selection.Cells
On Error Resume Next 'ignore all errors
sText = sText & CStr(cell.Value) & " "
Next cell

oData.SetText sText
oData.PutInClipboard

End Sub

It takes the selected cells, convert them to a string and write this string
in the clipbboard. Then you can past it where ever you want.



"OTS" wrote:

Hi! I have no experience with programming macros so bear with me. I'm not
sure if my case is possible to do in some easy way.

I want the user to be able to select some cells in a coulmn Users in a
worksheet. This selection will then be concatenated to a string of Usernaes
and inserted in a user-selected cell in another worksheet.

--
OTS