VBA code to clear the clipboard

Question

After copying the Range A1:XFD1048576 and paste while I close the workbook I get the dialogue. Although I keep display alerts off. I want the clipboard to be cleared what is the code to clear clipboard. E.g Openworkbook = Nothing doesn't work.

Also OpenBook.Close False the open book is closed for both False and True

Sub Get_Data_From_File()

Dim FileToOpen As Variant

Dim OpenBook As Workbook

Application.ScreenUpdating = False

Application.DisplayAlerts = False

FileToOpen = Application.GetOpenFilename(Title:="Browse for the detailed CSV file", FileFilter:="CSV Files (*.csv*),*csv*")

If FileToOpen <> False Then

Set OpenBook = Application.Workbooks.Open(FileToOpen)

OpenBook.Sheets(1).Range("A1:XFD1048576").Copy

Windows("Macro Template.xlsm").Activate

ActiveSheet.Range("A1").Select

ActiveSheet.Paste

ActiveSheet.Range("A1").Select

OpenBook.Close False

Application.ScreenUpdating = True

Application.DisplayAlerts = True

End If

End Sub

Answer 1

Paste the following code (for 64-bit version) in a Module and where necessary call function ClearClipboard

Option Explicit

Private Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As LongPtr

Private Declare PtrSafe Function EmptyClipboard Lib "user32" () As LongPtr

Private Declare PtrSafe Function CloseClipboard Lib "user32" () As LongPtr

Private Function ClearClipboard()

  OpenClipboard (0&)

  EmptyClipboard

  CloseClipboard

End Function

Answer 2

Use

        Application.CutCopyMode = False

Answer 3

It did not work I am still able to copy the same data into a new workbook. I also see in the clipboard it is still there.

Answer 4

I am not able to call ClearClipboard it won't show up in the drop down. I also tried to copy paste without ().  

Why variables are separated from the function procedure with a line?