Sub PresentData() If Clipboard.DataPresent("Text") Then Clipboard.Clear Else MsgBox "There is no text data in the Clipboard." End If