Sub ClipboardValid() If Clipboard.Valid Then ActiveLayer.Paste Else MsgBox "There is no valid data in the Clipboard." End If End Sub