Put value from string into clipboard vba

[jaryszek]

Hi,

i want to put string from vba to clipboard:

Dim DataObj As New MSForms.DataObject
 DataObj.SetText "working"
 DataObj.PutInClipboard

this is working.

But if i want to use variable:

Dim DataObj As New MSForms.DataObject
Dim strName as string 
strName = "working"
 DataObj.SetText strName 
 DataObj.PutInClipboard

the copid string is "strName", not "working"

how to do this?
Please help,
Jacek

[jindon]

Should return "working" as it works here.

Sub test()
    Dim myData As New MSForms.DataObject, strName As String
    strName = "working"
    With myData
        .SetText strName
        .PutInClipboard
        MsgBox .GetText
    End With
End Sub

[jaryszek]

yes working,

Jacek