Microsoft Office

Working with Excel Events 43
MsgBox Msg, vbInformation
End If
End Sub
Unfortunately, VBA can’t do much at all with Excel 2007’s ribbon. For example, there is no direct way to
activate a particular ribbon tab. The next example uses the SendKeys statement to simulate keystrokes. In
this case, it sends Alt+H, which is the Excel 2007 “keytip” equivalent of activating the Home tab in the ribbon.
Sending the F6 keystroke removes the keytip letters from the ribbon.
Private Sub Workbook_Open()
Application.SendKeys (“%h{F6}”)
End Sub
The following example performs a number of actions when the workbook is opened. It maximizes Excel’s
window, maximizes the workbook window, activates the sheet named DataEntry, and selects the first empty
cell in column A. If a sheet named DataEntry does not exist, the code generates an error.
Private Sub Workbook_Open()
Application.WindowState = xlMaximized
ActiveWindow.WindowState = xlMaximized
Worksheets(“DataEntry”).Activate
Range(“A1”).End(xlDown).offset(1,0).Select
End Sub
Using the SheetActivate event
The following procedure executes whenever the user activates any sheet in the workbook. The code simply
selects cell A1. Including the On Error Resume Next statement causes the procedure to ignore the error
that occurs if the activated sheet is a chart sheet.
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
Range(“A1”).Select
End Sub
An alternative method to handle the case of a chart sheet is to check the sheet type. Use the Sh argument,
which is passed to the procedure.
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If TypeName(Sh) = “Worksheet” Then Range(“A1”).Select
End Sub
Using the NewSheet event
The following procedure executes whenever a new sheet is added to the workbook. The sheet is passed to
the procedure as an argument. Because a new sheet can be either a worksheet or a chart sheet, this procedure
determines the sheet type. If it’s a worksheet, it inserts a date and time stamp in cell A1.
Private Sub Workbook_NewSheet(ByVal Sh As Object)
If TypeName(Sh) = “Worksheet” Then _
Range(“A1”) = “Sheet added “ & Now()
End Sub
749