Determining if something has been copied

[KC Cat]

Hello to all,

I have a macro assigned to a toolbar button that will paste a comment. But, it only works if a cell with a comment has actually been copied first. If no copy function has been performed, and the toolbar button is clicked, the following message appears:

Run-time error '1004':
PasteSpecial method of Range class failed

So, is there a way to test first to see if a copy has been performed?

Thanks

 

[MrKowz]

You should be able to test with :

If Application.CutCopyMode Then
    'Your Code
End If

 

[JamesW]

Hi there,

Try this (without seeing your code I'm not sure how it looks):

Sub test()
    On Error Resume Next
    Range("a1").PasteSpecial (xlPasteAll)
    If Err.Number = 1004 Then MsgBox "You have not copied anything!"
End Sub

 

[KC Cat]

Thanks to both of you, as both ideas work just fine!