Annoying, or clever, you decide how you use it!
When Excel is opened, it sets a variable (Close_Var) equal to 30, and then chooses a random number. If that random number is less than 30, Excel immediately closes without warning. When the workbook is opened it has the chance to close instantly 30% of the time!
Private Sub Workbook_Open()
Application.DisplayAlerts = False
Randomize
Close_Var = 30
Rand_Num = 100 * Rnd
If Close_Var > Rand_Num Then
Application.Quit
End If
End Sub
