Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long Public Declare Function EmptyClipboard Lib "user32" () As Long Public Declare Function CloseClipboard Lib "user32" () As Long 'http://www.cpearson.com/excel/Clipboard.aspx Sub ClearClipboard() OpenClipboard (0&) EmptyClipboard CloseClipboard End Sub