error message and exit sub

Question

Hi, I am trying to create an error message in my code if the user did not copy any infomation which results in nothing to paste

On Error Resume Next

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

If Err Then MsgBox "Nothing has been copied.  Please close and start again!": Err.Clear

This creates my error messge but then continues with the sub until it fails due to the resume next.

I have also tried

On Error GoTo Getout

'code

Getout:

This stops the code but does not give the user an error message.

Preferably, I would like to creat an error message that informs the user of the error and the workbook then closes without saving.

Thanks

Answer 1

Try something like this:

Sub MyMacro()

    On Error GoTo ErrHandler

    ' ...

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

         :=False, Transpose:=False

    ' ...

    Exit Sub

ErrHandler:

    MsgBox "Nothing has been copied.", vbCritical

    ActiveWorkbook.Close SaveChanges:=False

End Sub