Excel 2000 VBA: Programmers Reference

The index errors reported in the above erratum have been corrected for the second edition of the book published in January 2000.

The code at the top of page 56, GetFileName(), should read:

Sub GetFileName()
Dim BackSlash As Integer, Point As Integer
Dim FilePath As String, Filename As String
Dim i As Integer

FilePath = ActiveWorkbook.Fullname
For i = Len(FilePath) To 1 Step -1
If Mid$(FilePath,i,1) = "." Then
Point = i
Exit For
End If
Next i

If Point=0 Then Point = Len(FilePath) + 1

For i = Point - 1 To 1 Step -1
If Mid$(FilePath, i, 1) = "\" Then
BackSlash = i
Exit For
End If
Next i

Filename = Mid$(FilePath, BackSlash + 1, Point - BackSlash - 1)
MsgBox Filename
End Sub

Thanks to John Mitchell.

Unfortunately an error in the automatic production of the Index from the indexed chapter files was not detected until after publication. As a result some index entries have page numbers 120 too low, either instead of, or, as well as, the correct page numbers.

If a page number in the index is wrong, then correct it by adding 120.

More specifically:
1. All page numbers for entries under, "Command Bars" and, "Menus" should be raised by 120.
2. Page numbers for entries under "Toolbars" in the range 50-100 should be raised by 120. Higher and lower page numbers remain unchanged.
3. Where two page numbers differing by 120 are listed for the same index entry, the higher member of the pair is correct, while the lower should be disregarded.

All the errors in the index fall in one of the three categories listed above.

Wrox Press would like to apologise for any inconvenience experienced as a result of this error.