limpiar portapapeles

Hola gente, quiera saber un forma de limpiar el portapapeles.Utilizo Application.CutCopyMode = False pero nada pasa. No limpia nada el portapapeles. He intentado con otras como Dim MyDataObj As New DataObject MyDataObj.SetText "" ...

Hola a todos Como puedo hacer que cuando seleccionen y copien x rango de celdas o presionen la tecla Imprimir Pantalla, automaticamente se limpie el portapapeles para evitar que peguen esa informacion en otro libro o en Paint Es muy urgente, ...