Put in Clipboard

V Excelu bi rad v Inputboxu prebral vrednost in jo prenesel v clipboard. Na spletu sem našel nekaj primerov, ki pa meni ne delajo, npr.:

Dim MyDataObj As New DataObject

MyDataObj.SetText "This Is A Text String" Or
MyDataObj.SetText 123.456

MyDataObj.PutInClipboard

Ko pišem prvi stavek, mi sploh ne omogoča izbire DataObject, najbližja izbira po New je OLEObject, ki pa ni to kar želim.

Lahko sicer naredim tako:

Dim Mydata as Object
Set Mydata = Cells(1,1)

Cells (1,1) = 3 oz.
Cells(1,1) = val(inputbox("Vnesi število"))

Cells (1,1).Copy

Ta možnost mi ni všeč, ker uporablja celico v delovnem listu.

Ima kdo kako idejo?

LP Darko