Try:

Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As
Long

Sub ClearClip()
OpenClipboard 0&
EmptyClipboard
CloseClipboard
End Sub

" wrote:

Does anyone know of a macro that will clear the clipboard? I'm copying
stuff from the web into a spreadsheet and would like to use a macro
instead of the "clear all" button on the clipboard.

The following script doesn't seem to be working:

Application.CutCopyMode = False

Thanks!
Jason