MyString = "Put this in to the clipboard"
Range("A100") = MyString
Range("A100").Copy
Range("A100").ClearContents
Regards
Greg
Sub CopyToClipboard()
Dim DataObj As New MSForms.DataObject
DataObj.SetText ActiveCell.Text
DataObj.PutInClipboard
End Sub
--
Cordially,
Chip Pearson
Microsoft MVP - Excel, 10 Years
Pearson Software Consulting
www.cpearson.com
(email on the web site)
"Greg Glynn" <Gregor...@gmail.com> wrote in message
news:3a7f36da-9b42-4c48...@l32g2000hse.googlegroups.com...
Dim mystring As New DataObject
If usf_Convert.tbo_Number_is <> "" Then
number_is.SetText usf_Convert.tbo_Number_is
number_is.PutInClipboard
End If
Dim mystring As New DataObject
mystring.SetText "Put In Clipboard"
mystring.PutInClipboard