Topics covered are in the index column, on the left hand side of this page.

Feedback: Please write to us

Templates from microsoft
How to troubleshoot errors when you save Excel files
Excel Does Not Run on Multiple Processors
Remember XLM? Here is the helpfile download:
You can find the documentation for the Excel 97 SDK online at:


    Office Solutions Development
        Microsoft Office 97
            Office 97
                Product Documentation
                        Microsoft Excel 97 Developer's Kit
Increase the number of undo levels in Excel
1. Close any programs that are running.
2. On the Start menu, click Run. Type regedit and click OK.
3. In the Registry Editor, expand the following key:
4. On the Edit menu, point to New and click DWORD Value. With New Value #1 selected, type UndoHistory, and then press ENTER.
5. On the Edit menu, click Modify. In the Edit DWORD Value dialog box, click Decimal under Base. Type a value between 0 and 100 for Value. Click OK and quit the Registry Editor.
6. Start Microsoft Excel. Microsoft Excel stores an undo history for the number of actions you specify in step 5.


Using sendkeys: 
More then 16 sheets, then show activate dialogbox else popup sheet name.

Sub SheetActivate()
	'assign shortcut Key
	If Application.CommandBars("workbook tabs").Controls(16).Caption _
		Like "More Sheets*" Then
	Application.SendKeys "{end}~"
	Application.CommandBars("workbook tabs").ShowPopup

End Sub
Using the auditing toolbar ...

A red arrow indicated the problem

If there is not a range reference in the statusbar, you could be on the wrong sheet.
As each reference "resolves" itself, through the calculation engine, the error moves forward and a range reference will then appear on other sheets
External links may update when you open a file that was last saved in a previous version of Excel
'' *******************************************************************
'' Purpose  : Test whether an add-in is in memory 
'' Written  : 14-Feb-2005 by Andy Wiggins, BygSoftware.Com 
Function IsAddinLoaded(pStr_Name As String) Dim lObj_AI As AddIn

    IsAddinLoaded = False

    For Each x In AddIns 'Workbooks
        ''Debug.Print x.Name
        If UCase(pStr_Name) = UCase(x.Name) Then
            IsAddinLoaded = True
            Exit Function
        End If

End Function
OneDesk: Global implementation of uniform desktop environment
'' Purpose : Acts as if you've pressed Ctrl + Home 
'' Written : 05-Aug-2004 by Andy Wiggins, Byg Software Limited 
Sub ScrollToHomeCell()
    ActiveSheet.Cells(ActiveWindow.SplitRow + 1, _ 
		ActiveWindow.SplitColumn + 1).Select 
End Sub


MSDE - Home Page

Northwind Samples
MSDE - Home Page
Northwind Samples
Published: 20-October-2004
Last edited: 25-Aug-2012 21:37