VBA问题，简单的转折

这是Excel 2013 Power Programming中的代码，出于某种原因，我无法使其工作。

这个脚本是开箱即用的，但不起作用：

Sub SayHello() Msg "Is your name " & Application.UserName & "?" Ans = MsgBox(Meg, vbYesNo) If Ans = vsNO Then MsgBox "Oh, nevermind then. Bother" Else MsgBox "I must be clairvoyant!" End If End Sub 

我得到一个编译错误： Sub or Function not defined在子的开始行

这是我第一次使用VBA的经验，所以如果我做了一些非常愚蠢的事情，请温柔一点。

Answer 1

几个错别字和失踪=

 Sub SayHello() Msg = "Is your name " & Application.UserName & "?" Ans = MsgBox(Msg, vbYesNo) If Ans = vbNo Then MsgBox "Oh, nevermind then." Else MsgBox "I must be clairvoyant!" End If End Sub 

经过testing并在Excel 2010中工作