ehmm... fantasia sotto le scarpe, eh?

per referenziare la libreria, nell'editor di Visual Basic vai sul menu:

Strumenti -> Riferimenti...

e nella lista che ti appare cerca e spunta la libreria che ti dicevo nel post sopra.

per utilizzare la cella attiva nel momento del lancio della macro, basta utilizzare ActiveCell, quindi la macro diventa:
codice:
Sub CopiaInAppunti()
Dim DObj As New DataObject
DObj.SetText ActiveCell.Value, 1
DObj.PutInClipboard
End Sub
Boolean