Hallo
nach dem kopieren deines Codes wurden die Gänsefüßchen falsch dargestellt
die richtigen eingefügt und "Option Explicit" gelöscht (seufz)
lief es dann so
Sub SayHello()
Msg = "Is your name " & Application.UserName & "?"
Ans = MsgBox(Msg, vbYesNo)
If Ans = vbNo Then
MsgBox "Oh, sorry dude!"
Else
MsgBox "Welcome!"
End If
End Sub
MfG Tom
|