Comment avez-vous copier le contenu d'une Cellule dans le presse-papiers

Je suis en train de copier le contenu de la cellule dans le presse-papiers.

J'ai lu et essayé exactement l'exemple fourni dans Excel 2007 fichier d'Aide. Cependant, pour une raison quelconque, le DataObject objet n'est pas valide. Donc l'exemple:

Dim MyData As DataObject

Private Sub CommandButton1_Click()
    Set MyData = New DataObject

    MyData.SetText TextBox1.Text
    MyData.PutInClipboard

    TextBox2.Paste
End Sub

Private Sub UserForm_Initialize()
    TextBox1.Text = "Move this data to a " _
        & "DataObject, to the Clipboard, then to " _
        & "TextBox2!"
End Sub

Ne fonctionne pas dans mon cas. J'ai cherché un bon moment maintenant et je ne peux pas trouver une réponse sur le pourquoi de la DataObject objet n'est pas disponible.

Voici mon code:

Dim MyData As DataObject

Private Sub Worksheet_Change(ByVal Target As Range)
    If ActiveCell.Column = 3 Then
        Set MyData = New DataObject
        MyData.SetText ActiveCell.Offset(-1, -1).Text
        MyData.PutInclipboard
    End If    
End Sub

Erreur dans la Compilation est: "type Défini par l'Utilisateur non défini" et il met en évidence la "MyData Comme DataObject" de ligne.

Est-il une autre méthode pour simplement copier le texte dans une cellule dans le presse-papiers?