[vba]Sub Yes()
On Error Goto AskNicer
Please Let Excel.Application.ActiveWorkbook.ActiveSheet.Range("A1").Value = "Yes"
Exit Sub

AskNicer:
Pretty Please Let Excel.Application.ActiveWorkbook.ActiveSheet.Range("A1").Value = "Yes"
End Sub[/vba]