Sub ClipboardEmpty() If Not Clipboard.Empty Then ActiveLayer.Paste Else MsgBox "There is no data in the Clipboard." End IfEnd Sub