Sub PasteUnfText() On Error GoTo err_Handler Selection.PasteSpecial DataType:=wdPasteText, _ Placement:=wdInLine lbl_Exit: Exit Sub err_Handler: Beep Err.Clear GoTo lbl_Exit End Sub