Const CF_TEXT As Long = 1



Private Function HostNameList() As String

Dim HostName As Range


For Each HostName In ActiveWindow.RangeSelection
HostNameList = HostNameList & "," & HostName.Value
Next

HostNameList = Mid(HostNameList, 2)
Call PutCFTEXTStringOnClipboard(HostNameList)
End Function



' Requires the reference "Microsoft Forms 2.0 Object Library"
' Just add a UserForm object and delete it again immediately.
Private Sub PutCFTEXTStringOnClipboard(ByRef CF_TEXT_string As String)

Dim ClipboardText As New DataObject


Call ClipboardText.SetText(CF_TEXT_string, CF_TEXT)
Call ClipboardText.PutInClipboard
End Sub