The difficult I do immediately, the impossible takes a little bit longer.
Place in your modUtilities or in a new Module, remembering not to name the Module the same as the Function, and save. To use place... Call ClearClipboard ...wherever you need to clear the Clipboard.
Function ClearClipboard() As Boolean
Place this at the very top below...
Option Compare Database
Declare Function clt_OpenClipboard Lib "user32" Alias "OpenClipboard" (ByVal hWnd As Long) As Long