Public Declare Function OpenClipboard Lib "user32" ( _
ByVal hwnd AsLong) As Long
Public Declare Function CloseClipboard Lib "user32" () As Long
Public Declare Function EmptyClipboard Lib "user32" () As Long

Sub ClearClipboard()
OpenClipboard (0&)
EmptyClipboard
CloseClipboard
End Sub

Put declarations in a General module.

--
Regards,
Tom Ogilvy

"MD" wrote in message
...
his there a code to clear-up all that is stored in the office clipboard
and
windows clipboard other than application.cutcopymode = false

thanks
Michel