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