Errata

The first block of code used to read:


"ActiveSheet.Range("A1").Font.Bold = True"

It now reads:

"ActiveSheet.Range("A1")._
Font.Bold = True"

read:

For example, the following code is treated as one line by
Excel:

ActiveSheet.Range("A1")._
Font.Bold = True"

Now reads:

For example, the following code

ActiveSheet.Range("A1").Font.Bold = _
True

is treated as one line by Excel.

The third set of code used to read:

"For i = 1 to 100
Cell(i).Font.Bold = True
Next i"

It now reads:

"For i = 1 To 100
Set cell(i) = Cells(i, i)
' cell(i) now points to i-th cell on the diagonal of active sheet
cell(i).Font.Bold = True
Next"

and the sentence before it used to read:

For instance, the following code boldfaces the values in
each of the 100 cells in the array:

For i = 1 To 100
Set cell(i) = Cells(i, i)
' cell(i) now points to i-th cell on the diagonal of active sheet
cell(i).Font.Bold = True
Next

Now reads:

For instance, the following code boldfaces the values in
each of the 100 cells along the diagonal of the active
worksheet:

For i = 1 To 100
Set Cell(i)=Cells(i,i)
Cell(i).Font.Bold = True
Next i

The second B head on the page used to read:

"Global Objects"

Now reads:

"Global Members"

There are global members, but there is also only one global object.
This section should be about global members, not global objects.

is now "cbcpop" instead of two lines with "cbpop" getting defined. The
second "Dim" line used to read:

"Dim cpop As CommandBarControl"

It now reads:

"Dim cbcpop As CommandBarControl"

a single, rather trivial error. Namely, in the first declaration:

Dim cbpop As CommandBarControl

the variable "cbpop" should be changed to "cbcpop". However, the
entire code has been simplified by using only one variable. All of
the code of Example 10-2 on pages 135-136 has been replaced with
the following code:

Sub CreateCustomMenuItem()
Dim cbcpop As CommandBarControl

' Check for custom menu. If it exists then exit.
Set cbcpop = Application.CommandBars( _
"Worksheet menu bar"). _
FindControl(Type:=msoControlPopup, _
Tag:="SRXUtilsCustomMenu")
If Not cbcpop Is Nothing Then Exit Sub

' Control does not exist -- create it.
Set cbcpop = Application.CommandBars( _
"Worksheet menu bar"). _
Controls.Add(Type:=msoControlPopup, _
Temporary:=True)
cbcpop.Caption = "Cu&stom"

' Set tag property to find it later for deletion
cbcpop.Tag = "SRXUtilsCustomMenu"

' Add menu item to popup menu
With cbcpop.Controls.Add(Type:=msoControlButton, _
Temporary:=True)
.Caption = "&ActivateSheet"
.OnAction = "ActivateSheet"
End With
End Sub

reference to "Application.Workbook" has been changed to
"Application.CommandBars".

to read:

"Print #fr, ctl.Caption & " (" & ctl.Id & ")""

It now reads:

"Print #fr, ctl.Caption & " " & ctl.Id"

of Figure 12-3 were incorrect.

On page 155 in the bottom paragraph below the Example "Creating a
Menu," the text says:

"The program shown in Example 12-5 creates the menu system
shown in Figure 12-3 on Excel's worksheet menu bar."

Unfortunately Figure 12-3 on page 156 did not relate to the cited
example code in Example 12-5. The real Figure 12-3 has been replaced
by Figure 12-5 from page 160.

The correct figure is the same as Figure 21-2 from "Writing Word
Macros." That figure has been used to replace the incorrect Figure
12-3 in this book.

of Example 21-2. It used to reads:

' Temporary
If ActiveSheet.ChartObjects.Count > 0 Then
ActiveSheet.ChartObjects(1).Delete
End If

This removes the chart if it already exists. (I used this temporary
code while developing the example.) This code has been removed from
Example 21-2.