Sub ClipboardData() If Not Clipboard.Empty Then 'if there is data in the clipboard ActiveLayer.Paste 'paste data into the active layer Else MsgBox "There is no data in the clipboard." End IfEnd Sub