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