Sub ShowClippy()
'   Make sure Office Assistant is installed
    On Error Resume Next
    Application.Assistant.On = True
    If Err.Number <> 0 Then
        MsgBox "The Office Assistant is not installed. " & _
         "Re-run Office Setup to install it."
        Exit Sub
    End If
    On Error GoTo 0
'   Create the Assistant box
    With Assistant.NewBalloon
        .Heading = "It looks like you're typing a suicide note!"
        .Text = "Would you like help?"
        .Labels(1).Text = "Yes, please."
        .Labels(2).Text = "No thanks, I can handle it."
        .Labels(3).Text = "Too late. I'm already dead."
        .Button = msoButtonSetNextClose
        .BalloonType = msoBalloonTypeButtons
        .Show
    End With
End Sub