application events

[Lucas Hernandez]

I have been trying to run the following code

created a class with
Public WithEvents appEvent As Application

Private Sub appevent_WindowResize(ByVal Wb As Excel.Workbook, ByVal Wn
As Excel.Window)
MsgBox "you have resized excel"
End Sub

then a module with

Dim myObject As New ClsAppEvents

Sub testObject()
Set myObject.appEvent = Application
End Sub

run testObject....

this is supposed to show "you have resized excel"

please let me know if I need to activate something to make it work

thanks

LH