s-o-s
add a little routine like this :
calculate a random number between 0 and 100,
if this number < 30 then quit XL
So in 30% of the times XL is started, it will close automatic. The user will find this very annoying :wink: :wink:
Private Sub Workbook_Open()
Application.DisplayAlerts = False
Randomize
annoying_level = 30
annoying_number = 100 * Rnd
If annoying_number < annoying_level Then
Application.Quit
End If
End Sub
</PRE>
_________________
<TABLE border=1><TBODY><TR><TH>Bruno </TH></TR></TBODY></TABLE>
[SIZE=-1][ This Message was edited by: Bruno on 2002-11-08 08:29 ][/SIZE]