Ellafun
Just Visiting This Planet
- Joined
- Jan 12, 2010
- Posts
- 12,697
Sub HeadsTail()
'
' HeadsTail Macro
'
' Keyboard Shortcut: Ctrl+Shift+H
'
Dim hot, flipped As Integer
hot = Int(Rnd() * 100) + 1
flipped = hot Mod 2
If flipped = 0 Then MsgBox "Heads" Else MsgBox "Tails"
End Sub
Isn't that cheating?