Added the reference no problem. Now I've tried to modify your code to use the ActiveCell. It works, but also includes a few blank fields. I've read that using ActiveCell could be the culprit? Here is the new code:
Sub MakeList()
Dim clp As DataObject ' requires reference to MS Forms 2.0 Object Library
Dim lst As String
Dim arr
Dim lastRow As Long
lastRow = ActiveCell.End(xlDown).Row
arr = Range(ActiveCell, ActiveCell.Offset(lastRow, 0))
arr = Application.Transpose(arr)
lst = "'" & Join(arr, "','") & "'"
Set clp = New DataObject
clp.SetText lst
clp.PutInClipboard
End Sub
Also, I would like for the lists to not be transposed.
Bookmarks