End vba if nothing to paste

[Throughstream]

Hi I have the following code, but I don't want it to carry on after line 4 if there is nothing in the clipboard to paste instead I want it to come up with the following message and then end sub:

MsgBox "Nothing to paste!"

Sub Button4_Click()
    Dim last_row As Integer

    
    Cells(Rows.Count, 3).End(xlUp).Offset(1, -1).PasteSpecial Paste:=xlPasteValues
 

    
    'Selection.PasteSpecial Paste:=xlPasteValues'
   
    
    ActiveCell.Copy
    
    
     ActiveCell.Offset(0, 23).Select
     
     Selection.PasteSpecial Paste:=xlPasteValues



End Sub

many thanks

[BadlySpelledBuoy]

Without a sample workbook it's difficult to know if this is what you mean, but perhaps it will work...

Sub Button4_Click()
    Dim last_row As Integer

    Cells(Rows.Count, 3).End(xlUp).Offset(1, -1).PasteSpecial Paste:=xlPasteValues
 
    If ActiveCell <> "" Then
        ActiveCell.Copy
        ActiveCell.Offset(0, 23).PasteSpecial Paste:=xlPasteValues
    Else
        MsgBox "Nothing to paste!",,""
    End If

End Sub

BSB

[maniacb]

You can also use the

Exit sub

line to end the sub from any line.

[BadlySpelledBuoy]

You can also use the

Exit sub

line to end the sub from any line.

Correct, however, I would consider this bad programming practice and to be avoided wherever possible.
A single exit point means code is easier to follow and less likely to cause headache further down the line.

BSB