Copying a VBA variable into the Clipboard

[Warminster]

Maybe this is an easy question, but I don't know how to do this.

I have a macro that copies a cell, and then uses VBA to modify that information. I'd like to be able to put that information into the clipboard, so that I can paste the information into any cell that I choose.

How do I copy my variable into the clipboard.

 

[MrExcel]

12 years later, I needed to copy a variable to the clipboard and found this thread.
Chip Pearson's page at Windows Clipboard provides the code.
Important step: in VBA, go to Tools, References, and add Microsoft Forms 2.0 Library as a reference.
Then, the following code will put the contents of the MS variable on the clipboard:
Dim DataObj As New MSForms.DataObject
DataObj.SetText MS
DataObj.PutInClipboard

For an example of this in action, my July 10 2014 blog post shows how to use the code to copy the statistics from the Status Bar to the clipboard for later pasting:
Copy the Quick Stats Values to the Clipboard

Sub CopyQuickStatsToClipboard()
    Set WF = Application.WorksheetFunction
    MS = "Average: " & vbTab & WF.Average(Selection) & vbCr _
       & "Count: " & vbTab & WF.CountA(Selection) & vbCr _
       & "Numerical Count: " & vbTab & WF.Count(Selection) & vbCr _
       & "Min: " & vbTab & WF.Min(Selection) & vbCr _
       & "Max: " & vbTab & WF.Max(Selection) & vbCr _
       & "Sum: " & vbTab & WF.Sum(Selection) & vbCr
    
    ' Thanks to Chip Pearson http://www.cpearson.com/excel/Clipboard.aspx
    Dim DataObj As New MSForms.DataObject
    DataObj.SetText MS
    DataObj.PutInClipboard
End Sub


Sub CopyQuickStatsAsFormulas()
    Set WF = Application.WorksheetFunction
    MA = Selection.Address
    MS = "Average: " & vbTab & "=AVERAGE(" & MA & ")" & vbCr _
       & "Count: " & vbTab & "=CountA(" & MA & ")" & vbCr _
       & "Numerical Count: " & vbTab & "=Count(" & MA & ")" & vbCr _
       & "Min: " & vbTab & "=Min(" & MA & ")" & vbCr _
       & "Max: " & vbTab & "=Max(" & MA & ")" & vbCr _
       & "Sum: " & vbTab & "=Sum(" & MA & ")" & vbCr _
    
    ' Thanks to Chip Pearson http://www.cpearson.com/excel/Clipboard.aspx
    Dim DataObj As New MSForms.DataObject
    DataObj.SetText MS
    DataObj.PutInClipboard
End Sub

 

[Johnny C]

I don't think you need the 'MsForms.' bit anymore in XL2010... I can't check atm because XL isn't recognising it with or without it, full stop