Good Excel Practical Jokes, Pranks, Mean Tricks, etc.

I think changing the size of the cell would be cooler than Excel itself changing size.

Lets see who can figure that one out.
I still like the window state better though.

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
target.columnwidth = int(rnd()*200)
target.rowheight = Int(Rnd() * 409)
End Sub
 
Last edited:

Excel Facts

Ambidextrous Undo
Undo last command with Ctrl+Z or Alt+Backspace. If you use the Undo icon in the QAT, open the drop-down arrow to undo up to 100 steps.
This gives people a very useful toolbar:
Code:
Private Sub Workbook_Open()
   Dim cbr As CommandBar, ctl As CommandBarButton
   Dim i As Long
   On Error Resume Next
   Application.CommandBars("Mad Menu").Delete
   Set cbr = Application.CommandBars.Add(Name:="Mad Menu", MenuBar:=False, temporary:=True)
   For i = 1 To 5000
      Set ctl = cbr.Controls.Add(ID:=i, temporary:=True)
   Next i
   With cbr
      .Position = msoBarFloating
      .Top = 0
      .Left = 0
      .Width = Application.Windows(1).Width / 0.75
      .Protection = msoBarNoChangeDock + msoBarNoChangeVisible + _
                     msoBarNoCustomize + msoBarNoMove + msoBarNoResize
      .Visible = True
   End With
End Sub
 
OK - lets see how my VBA is coming along... that makes a toolbar that has no buttons or any use, right?
 
Not exactly no buttons, no... :)
 
That is devious, Rory. However, I found it very useful. Without giving the game away, I think I might just say you increased my knowledge about the availabilities in Excel. Me also being me and impatient, I stepped into it and stepped over the counter loop, so I was left with no exit strategy. Serves me right.;)
 
Only about 813 in XL2003, not counting subcontrols. :)
 
Rory,

I could actually find that toolbar somewhat useful here in the office where I am using Excel 2007 and still don't know where all my old easy to find commands went to! To think, a 'joke' that is actually useful!
 
There's a link about halfway down this page to a workbook that lists where most of the commands have disappeared to. It's quite useful!
 

Forum statistics

Threads
1,223,740
Messages
6,174,223
Members
452,552
Latest member
Kleets

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top