eventos applciacion

He estado tratando de correr el siguiente codigo en un modulo de clases 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 ...