Try this:
Private 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
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Sub EmptyCB()
dim hWnd as Long
hWnd=FindWindow("XLMAIN", application.caption)
OpenClipboard hWnd
EmptyClipboard
CloseClipboard
End Sub
[edit]Sometimes I wish you were locked out if someone else was posting![/edit]