Paste a string

[ProteanBeing]

I would like to build (a large) string from multiple cells so I can paste the results in a email. I know how to build a string but how do I "copy" it to the clipboard to paste in another program?

[mdmackillop]

Look up PutInClipboard in VBA help

[ProteanBeing]

This only works in forms. Need it to work in sheet

[Tinbendr]

Assign it to the Body or HTMLBody property.

Snippet Set oOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
Set oOutlookApp = CreateObject("Outlook.Application")
bStarted = True
End If
Set oItem = oOutlookApp.CreateItem(olMailItem)
With oItem
.BodyFormat = olFormatHTML
.To = EmailName
.Subject = "Outstanding Reports"
'Build WholeMessage from Cells or Array.
.HTMLBody = WholeMessage$
.Display
'.Send
End With
If bStarted Then
oOutlookApp.Quit
End If
Set oItem = Nothing
Set oOutlookApp = Nothing