Fun Times with Colleagues

Have you ever wanted to annoy someone who you sit with, maybe just as a prank or a long term thing (which is very easy to do and to reverse)?
If they use Excel and leave a workbook open, right click on the sheetname on the tab at the bottom of the screen and click "View Code" (or alternatively you can hit Alt+F11
Copy the following code and paste it in the screen that comes up and then press the cross to close that screen.
Whenever a cell is selected anywhere on the sheet, it is filled with a random colour :-)
To remove it, view the code and delete it and press the cross to close the screen again.
It'll have them scratching their heads for ages!


If they use Excel and leave a workbook open, right click on the sheetname on the tab at the bottom of the screen and click "View Code" (or alternatively you can hit Alt+F11
Copy the following code and paste it in the screen that comes up and then press the cross to close that screen.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Selection.Interior.ColorIndex = Int((56 * Rnd) + 1) End Sub
Whenever a cell is selected anywhere on the sheet, it is filled with a random colour :-)
To remove it, view the code and delete it and press the cross to close the screen again.
It'll have them scratching their heads for ages!



Comments
I like that!
It's laughable how we grind to a halt though - we could cope 40 years ago, we've had incredible advances in technology since then and yet we're going backwards!
blank
Yeah sorry J... *does the angelic look*
Thats part of the problem, werent so many cars about back then!
** heheh ** xx
Not just cars though. Go on You Tube and search "Snow (1963)", you'll see what I mean.
I don't think it will - VBA is a Microsoft built in editing language, which I am not sure if Lotus can use - if it can I'm not sure how to get to the code input screen (I guess you could try the same hot key Alt+F11 and see if that brings it up)
I only really work with excel VBA so I couldn't comment on if it would work / delete data etc on other platforms.