Cargar texto en CLIPBOARD

Hola a todos:
Estoy afinando un código y en un momento determinado necesitaría
pasar el valor de una celda al CLIPBOARD para utilizarlo en otra aplicación
no Office.

En concreto el código que estoy manejando es:

Private Sub CommandButton1_Click()
Dim r_LIS As Range, n_FICH As Variant
Set r_LIS = Worksheets("LIS_CJ").Range("AD" & [A1])
r_LIS.Value = [A2]
n_FICH = [B2]
'la siguiente linea me da error "No se ha definido la variable" y señala
CLIPBOARD
Clipboard.Clear
Clipboard.SetText n_FICH, vbCFText
' De forma provisional, para probar si carga el portapapeles intento
"recuperar" el valor en C3
If Clipboard.GetFormat(vbCFText) Then
[C3] = Clipboard.GetText(vbCFText)
End If
'Rutina de impresión en PDF, donde debería "pegar" el portapapeles
Sheets("H_DIA").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

¿Alguna idea de como avanzar?

Gracias de antemano, un saludo.

Desde Salamanca,
Juan Español