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]