Convert Column Into Comma-Separated List: Getting Around Character Limit

You could use a function like this to put the text in the clipboard:

Function SetClipBoardText(ByVal Text As Variant) As Boolean
    SetClipBoardText = CreateObject("htmlfile").ParentWindow.ClipboardData.SetData("Text", Text)
End Function