Prevent Error when running Macro

[schielrn]

Range("C8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C8").Select

Here is my macro. All I want it to do is take any information that I have copied and paste special it. It does that fine. The problem I have is when there is nothing copied, if someone accidentally pushes the button it gives an error saying PasteSpecial method of Range class failed. Is there a way to prevent this message with like a try catch block or something. I would rather if someone accidentally pushed the button that maybe a message come up that there was nothing copied to the clipboard or something to that effect. I don't know if it is possible in excel.

Thanks,

Rob

 

[Jonmo1]

Welcome to the board...

Try using on error goto...

Sub test()
On Error GoTo Handler
Range("C8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C8").Select
Exit Sub
Handler:
MsgBox ("nothing was copied")
End Sub

 

[erik.van.geit]

Hi, schielrn
Welcome to the Board !!!!!

try this

Sub test()
On Error Resume Next
Range("C8").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
If Err Then MsgBox "your message", vbExclamation, "title"
Range("C8").Select
End Sub

see how I deleted one line: now you will not "go to" C8 if there is an error

kind regards,
Erik