my code is given below..i am using 2010 version of excel
Sub GuessName()
Msg = Is your name & Application.UserName & ?
Ans = MsgBox(Msg, vbYesNo)
If Ans = vbNo Then MsgBox Oh, never mind.
If Ans = vbYes Then MsgBox I must be clairvoyant!
End Sub
Bookmarks