The one I use the most shows a checked listbox of the sheets in the active workbook. I can hide/unhide or protect/unprotect all or some of the sheets in one fell swoop. I absolutely HATE that you can only unhide one sheet at a time in the absurdly-located Format/sheet/unhide… dialog.

Other stuff I didn’t see mentioned:

Eliminate #DIV/0! by changing simple formulas in the selection of the form “=a/b” to “=if(b,a/b,0)”
Also do similar to above for complex formulas using ISERROR().
Reformat all comments in selected cells to Ariel 10 point normal.
A find and replace for changing names of shapes on the current sheet.
Reset the cell pointed to by ActiveCell.SpecialCells(xlLastCell) by using ActiveSheet.UsedRange

I also have toolbar buttons to:

Toggle between A1 and R1C1 styles (I use this all the time).
Invoke the Insert/Name/Define dialog.

Personal.XLS also builds and supports the right-click context menu to which I’ve added:

Copy Reference – if the selected cell(s) is a named range like “MyTotal”, put the string “Range(“MyTotal”)” on the clipboard so I can paste it into my code. I love this! It works for sheet-local names as well, and (to my great shame) unnamed ranges.
I also have a couple that copy cells without the absolute referencing like Stuart above, but it works with an arbitrarily large selection of cells.

Dave

One applies word wrap. (I still can’t believe this is not a canned selection when customizing toolbars or keyboard shortcuts)
The other brings up a calendar form so that you can select a date (ever since I saw this kind of user interface on a travel website I NEEDED to have it everywhere. I think I process dates with the creative/image side of my brain.

Some of the buttons are
- Format filter (filter on cell format)
- Copy unique/Paste Unique
- Higligth / Delete Duplicates
- Text Tools – Toggle case/Proper Case/Text 2 Numbers/Numbers to Text/Trim All
- Comment Tools – Send cell data to comments/Comment Data to Cell/Aling Comment
- Graph Paper – Convert cells in to Square – like on a graph paper – say 0.5 cms
- Extend to last row/column
- Paste Excat formula
- Dynami Range Tools – Dynamic Rows/Columns/Table + Dynamic Rows with Blanks/Dynamic Columns with Blanks
- Toggle calulation mode
- Merge to Cell
- Swap Cells
- Delete Blank rows/Colums
- Insert/Delete Alternate Rows/Columsn
- Batch Printing utilit
- Delete Hyperlinks

Some of the custom shortcut keys are
- Ctrl+l – Toggle filter
- Ctrl+j – Show all
- Ctrl+q – List sheets
- Ctrl+m – Make formulas in to values
- Ctrl+t – Go to Top sheet in a file
- Ctrl+e – Go to End sheet in a file
- Ctrl+shift+l – Paste Exact Formula

- Reset Excel (calculation automatic, mousepointer default, enable selection, statusbar false, …)
- Fill selection with random text or letters or numbers or dates (userform ui)
- Lock/unlock/hide/show selected sheets (userform ui)
- Clean cell content in selection (remove spaces, replace formulas with values, remove non-numbers, upper/lower/proper, … userform ui)
- Filter assistant; switch autofiler criteria based on active cell content (also/instead/all) with save and recall for filter settings. (userform ui)
- Copy column widht / row height
- Selection to html
- Close and kill all unsaved workbooks (“Book14? not saved as anything)
- Close activeworkbook and send to recycle bin if saved as file

I haven’t fallen in love with my macros, but I have 3 I use a lot: swap formulas and notes in each cell in the selected range, replace initial = with |=, replace initial |= with =. Another I use less often concatenates the contents (.Text) of all cells in the selected range into the active cell. Last one worth mentioning prints name definitions, cell formulas (R1C1), formatting strings and all VBA modules for entire active workbook, basically a text file dump of an XLS file. Now if I’d only get around to writing a macro that could create XLS files from the text dumps…

I have a guy who wants his workbook dumped into PowerPoint, with a twist or two. He wants the sheets inserted as Excel worksheet objects. He also wants multipage worksheets to be split among multiple slides which means a lot of deleting rows above and below the rows which should be visible on the slide. He already has a function that exports the worksheets into an archival workbook in which all formulas and links have been converted to values. Some of the sheets are just not amenable to a PowerPoint view, but I haven’t been able to convince him otherwise. Even mentioning the hours it will take to code a sheet splitting algorithm have not deterred him.

This code copies each worksheet in a workbook as a picture into a new powerpoint presentation. The idea here is that I can build a workbook in such a way that it mimics a PowerPoint presentation; the workbook is the presentation itself and each worksheet becomes a slide in the presentation. Once I do that, you can easily convert that workbook into an actual PowerPoint presentation using a bit of automation. This allows me to create presentations that I can update by simply refreshing the data in my workbook.

Sub WorkbooktoPowerPoint()

‘Step 1: Declare your variables
Dim pp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim PPSlide As PowerPoint.Slide
Dim xlwksht As Excel.Worksheet
Dim MyRange As String
Dim MyTitle As String

‘Step 2: Open PowerPoint, add a new presentation and make visible
Set pp = New PowerPoint.Application
Set PPPres = pp.Presentations.Add
pp.Visible = True

‘Step 3: Set the range that includes your data and charts.
‘Ideally, each worksheet’s content is encapsulated in the same range.
‘You could also dynamically determine the used range, but I’m too lazy for that.
MyRange = “A1:I27?

‘Step 4: Start the loop through each worksheet
For Each xlwksht In ActiveWorkbook.Worksheets
MyTitle = xlwksht.Range(“C19?).Value

‘Step 5: Copy the range as picture
xlwksht.Range(MyRange).CopyPicture _
Appearance:=xlScreen, Format:=xlPicture

‘Step 6: Count slides and add new slide as next available slide number
SlideCount = PPPres.Slides.Count
Set PPSlide = PPPres.Slides.Add(SlideCount + 1, ppLayoutTitleOnly)
PPSlide.Select

‘Step 7: Paste the picture and adjust its position
PPSlide.Shapes.Paste.Select
pp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
pp.ActiveWindow.Selection.ShapeRange.Top = 100

‘Step 8: Add the title to the slide then move to next worksheet
PPSlide.Shapes.Title.TextFrame.TextRange.Text = MyTitle
Next xlwksht

‘Step 9: Memory Cleanup
pp.Activate
Set PPSlide = Nothing
Set PPPres = Nothing
Set pp = Nothing

End Sub