Dim sText As String
Dim i As Integer
 
With List1
  sText = ""
  For i = 0 To .ListCount - 1
    sText = sText & .List(i) & vbCrLf
  Next i
End With
 
Clipboard.Clear
Clipboard.SetText sText

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de