Workbook Deactivate Event

[TerryF]

Hi, I am trying to get code to run when I deactivate a Workbook

The following examples were taken from "Help" and created in a new
workbokk exactly as stated yet does nothing when I select a new
workbook or another application

Can you help? Thanks

TerryF

-------------------------------------------------

Using Events with the Application Object


Before you can use events with the Application object, you must create
a new class module and declare an object of type Application with
events. For example, assume that a new class module is created and
called "EventClassModule". The new class module contains the following
code.

Public WithEvents App As Application

After the new object has been declared with events, it appears in the
Object drop-down list box in the class module, and you can write event
procedures for the new object. (When you select the new object in the
Object box, the valid events for that object are listed in the
Procedure drop-down list box.)

Before the procedures will run, however, you must connect the declared
object in the class module with the Application object. You can do this
with the following code from any module.



Sub InitializeApp()

Dim X As New EventClassModule
Set X.App = Application

End Sub

After you run the InitializeApp procedure, the App object in the class
module points to the Microsoft Excel Application object, and the event
procedures in the class module


This example is supposed to arrange all open windows when a workbook is
deactivated. DOESN"T WORK!!


Private Sub App_WorkbookDeactivate(ByVal Wb As Workbook)

Application.Windows.Arrange xlArrangeStyleTiled

End Sub

 

[Colo]

Hi

Please decrale a variable X as a Public as follows, and run
"InitializeApp"


Code:
--------------------

Public X As New EventClassModule

Sub InitializeApp()

Set X.App = Application

End Sub