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
On Error GoTo err_ClearClipboard
' Comments : Clears the clipboard
' Parameters: None
' Returns : True if successful, False otherwise
     Dim lngTemp As Long

          If clt_OpenClipboard(0&) <> 0 Then
            lngTemp = clt_EmptyClipBoard()
            lngTemp = clt_CloseClipboard()
          End If

     ClearClipboard = True

Exit Function

ClearClipboard = False
Resume exit_ClearClipboard

End Function

Place this at the very top below...
Option Compare Database
Option Explicit

Declare Function clt_OpenClipboard Lib "user32" Alias "OpenClipboard" (ByVal hWnd As Long) As Long
Declare Function clt_CloseClipboard Lib "user32" Alias "CloseClipboard" () As Long
Declare Function clt_EmptyClipBoard Lib "user32" Alias "EmptyClipboard" () As Long