Verificar si hay algo en el Portapaeles

Camilo,

?Que tal esto?

Function PortapapelesVacio() As Boolean
PortapapelesVacio = (Application.ClipboardFormats(1) = -1)
End Function

Sub test()
MsgBox PortapapelesVacio
End Sub

Saludos,
KL
(XL 97, 2000, 2002)

Ojo - mi separador de argumentos en las formulas es la coma ",".
Puede q necesites cambiarla por punto y coma ";".

Para usar mi direccion de correo electronico privada
borra "NOSPAM" y "PLEASE" antes de usarla.

"Camilo Báthory" wrote in message
news:0aa801c4ee92$57978440$

Estoy utilizando el codigo de Pegado especial Valores:

Cells(7, 1).PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Pero antes de hacerlo me gustaria verificar si realmente
hay algo que pegar. Es decir, como puedo hacer para
verificar si el Portapapeles (Clipboard) esta vacio o
tiene algo para pegar.

Gracias,