You can download SHSORT01.ZIP here.

This is a download for the Excel developer who has everything.

SHSORT01.XLA is an Excel AddIn that sorts the Sheets in the ActiveWorkbook in alphabetical order. Not earthshaking exactly but quite useful when that sad time comes to document a huge project workbook you've been banging away on for weeks with 17 Modules, 12 Worksheets, 15 Dialogs, 7 Charts and a XLM macro for setting Page attributes thrown in for good measure.

SHSORT01 works in Excel 5 or Excel 7/97 by adding a MenuItem "Sheet Sorter" to the Tools menus. Open SHSORT01.XLA, activate any Workbook and choose MenuItem "Sheet Sorter".

A suggestion: try using a naming convention for all Sheets. I always preface Worksheet names with sht, Dialogs with dlg, Modules with mdl, Charts with cht and XLMs with xlm. This results in an easily searchable Workbook, especially after you've used SHSORT01.

The source code is in the accompanying SHSORT01.XLS to look at or fool around with. It shows, among other things, an example of the For Each technique of looping through the elements in a collection of Excel objects.

Please note: Using SHSORT01.XLA is not a good idea if you refer to sheets in your VBA code as, for example, ActiveWorkbook.Sheets(13), which you shouldn't do anyhow.

Both files are packaged in SHSORT01.ZIP (15 Kb).

Your cost: 0. My liability: 0.

Please let me know if you download it, use it, find any bugs in it, get any mileage out of it, improve it. It works. Enjoy.

Just click HERE to download SHSORT01.ZIP (15 Kb).

Unpack with PKUNZIP! Open SHSORT01.XLA in Excel and you're on your way.

Click here to email me if you download! Sign The Fortress Guestbook, while you're at it.