Basic Test:
Public Sub ClipBoardCopy() Dim MyDataObject As Object Set MyDataObject = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") With MyDataObject .SetText "TEST" .PutInClipboard End With End Sub
Another Version:
Public Sub Copy() Dim CopytoClipBoard As Range Set CopytoClipBoard = ActiveWorkbook.ActiveSheet.Range("A1:A14") CopytoClipBoard.Copy End Sub