Errata for Definitive Guide to Excel VBA (apress)

Errata for Definitive Guide to Excel VBA (apress) by Michael Kofler

Unfortunately, some details are unclear or have turned out wrong. Please note that all errors marked with * have been corrected in the second printing, which is available since July 2002. (The reprint has a blue cover, while the first print has a red cover.)

At many places in the code, the unequals operator <> is missing. This is a typesetting error. The code is in all cases correct on the sample files.

Page 13, second line*: RecordAsResult should be FormatAsResult.
Page 18, third paragraph*: Two arrows (for cursor keys) where replaced by _. (This is a typesetting error.)
Shift+_ should be: Shift + Cursor-Up
finally, _ should be: finally, Cursor-Right
Page 19, last paragraph*: Input|Comment should be Insert|Comment.
Page 21, third paragraph*: The 'control toolbox' is part of the toolbars available for Excel. It can be shown using the menu command View|Toolbar.

Page 32*: An unequals operator is missing.

4th line of code:
If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub

Page 91, 4th paragraph*: =func(A1;B1) should be =func(A1,B1).
Page 102, sample macro_select*: The variable number should be declared as integer (i.e. Dim number As Integer).

Page 131, 5th and 6th line of code*: These lines should be:

For Each w In Application.Windows
  If w.Parent.Name <> ActiveWorkbook.Name And w.Visible Then
    ...

Page 231, WeekdayName*: The result of WeekdayName(n) depends on the regional settings of the operating system. With german settings, WeekdayName(1) is "Montag" (monday); however, with english settings, WeekdayName(1) is "Sunday"!
With the optional parameter firstdayofweek you can specify, which weekday should be first. Thus, WeekdayName(1, firstdayofweek:=vbSunday) is "Sunday", independently of regional settings.
Page 240, first code block*: In line 7 and 11 the unequals operators <> are missing.
Page 258-259, throughout the text explaining the Binary Files example*: Form_Load should read CreateBinaryFile, Form_Click should read LoadBinaryFile. (The code is correct.)
Page 273, 3rd line of code*: <> is missing. The line should read:
```
If Dir(file) <> "" Then ...
```
Page 289, 8th line of listing*: This line should be:
```
If isEmpty(x) Then NumberToText = "": Exit Sub
```
Also on this page, the second last line in the listing should be:
```
x = Space(13 - Len(x)) + x
```
The code is correct on the CD (sample file Function.xls).

Page 326, code*: Code and comments are mangled. It should look like this:

Dim y(3)                            '4 Elemente
y(i) = ...
Worksheets(1).Range("a1:d1") = y    'changes A1:D1

Dim x(9, 4)                         '10*5 Elemente
x(i,j)= ...
Worksheets(1).Range("a1:e10") = x   'changes cells A1:E10

Page 442, middle of listing*: Again <> is missing. The If-statement should read:

If c.Controls(1).Caption <> "" And _
   c.Controls(1).Caption <> "[Command not available]" And _
   c.Controls(1).Caption <> "custom" Then

Page 523, middle of listing: Once again the <> problem. The The If-statement should read:
```
If lastmonth <> Month(dat) Then
```
Page 570, Managing custom code: Share.xls should be DB_Share.xls (twice).

Page 571, code: <> missing twice:

19th line of code: If Dir(reportFile)<>"" Then
26th line of code: If Dir(templateFile)<>"" Then

Page 600, code: <> missing:

14th line of code, If oldDir <> "" Then

Page 636, code: <> missing:
```
17th line of code: If Err <> 0 Then
```

Page 637, code: <> missing:

3rd line up from bottom of code:
If ws.[b14] <> 0 And ws.[b14] <> "" Then

Page 638, code: <> missing:

second code block, 4th line up from bottom:
If Err <> 0 Then

Page 644, code: <> missing:
```
5th line from bottom: If Err <> 0 Then
```

Page 680, code: <> missing:

last line of page:
If oldDir <> "" And LCase(oldDir) <> LCase(newDir) Then

Page 683, code: <> missing:

10th line of code:
If ptLayout(i,2) <> xlHidden Then

Page 755, code: <> missing:

first code block, 3rd line from bottom:
If LCase(prjName) <> "nwind.mdb" Then

Page 762, code: <> missing:

menuPrint_Click(), 4th line down:
If Err <> 0 Then

Sorry for the mistakes (and thank's to all who notify me about further errors)! Special thanks go to Rich A. Surace and Alan Craig, who pointed out most of the errors.

Last change 24th July 2002

Back to the book page at kofler.cc.

Back to the book page at apress.com.