Excel macro to clear clipboard

[Rakki]

I need to copy one worksheet paste to another and then clear the clipboard the code I have is
'
Sheets("Sort").Select
Selection.AutoFilter Field:=1, Criteria1:="D1"
Selection.Copy
Sheets("Copy").Select
Cells.Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("User").Select
End Sub

Although this code runs it just doesn't clear the clipboard
I have Microsoft Forms 2.0 Object Library in my references

 

[Glaswegian]

Welcome to the Board!

Have a look at the examplein this thread and see if it helps.

http://www.mrexcel.com/board2/viewtopic.php?t=113532&highlight=clipboardurl

Regards

 

[Rakki]

Thanks for your reply, I have now tried the code

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
Public Function ClearClipboard()
OpenClipboard (0&)
EmptyClipboard
CloseClipboard
End Function
Public Sub ccc()
Call ClearClipboard
End Sub

This code also runs but does not seem to do anything

 

[Glaswegian]

Hi

Works fine for me. Did you paste it to new module? Trying opening the Clipboard viewer, copy some data, run the Sub ccc() and check the clipboard viewer again.

Regards