Application Level

There are 57 different events.
More details on how to add these events can be found here: VBA > Events > Application Level

Activate and Deactivate

Switching focus between applications does not trigger activation or deactivation of any of the Application, Workbook, Worksheet or Windows events.

VBA Samples

Private Sub Application_AfterCalculate() 
End Sub 

Private Sub Application_NewWorkbook( _ 
   ByVal Wb As Workbook) 
End Sub 

Private Sub Application_ProtectedViewWindowActivate( _ 
   ByVal Pvw As ProtectedViewWindow) 
End Sub 

Private Sub Application_ProtectedViewWindowBeforeClose( _ 
   ByVal Pvw As ProtectedViewWindow, _ 
   ByVal Reason As XlProtectedViewCloseReason, 
   ByRef Cancel As Boolean) 
End Sub 

Private Sub Application_ProtectedViewWindowBeforeEdit( _ 
   ByVal Pvw As ProtectedViewWindow, _ 
   ByRef Cancel As Boolean) 
End Sub 

Private Sub Application_ProtectedViewWindowDeactivate( _ 
   ByVal Pvw As ProtectedViewWindow) 
End Sub 

Private Sub Application_ProtectedViewWindowOpen( _ 
   ByVal Pvw As ProtectedViewWindow) 
End Sub 

Private Sub Application_ProtectedViewWindowResize( _ 
   ByVal Pvw As ProtectedViewWindow) 
End Sub 

Private Sub Application_SheetActivate( _ 
   ByVal Sh As Object) 
End Sub 

Private Sub Application_SheetBeforeDelete( _ 
   ByVal Sh As Object) 
End Sub 

Private Sub Application_SheetBeforeDoubleClick( _ 
   ByVal Sh As Object, _ 
   ByVal Target As Range, _ 
   ByRef Cancel As Boolean) 
End Sub 

Private Sub Application_SheetBeforeRightClick( _ 
   ByVal Sh As Object, _ 
   ByVal Target As Range, _ 
   ByRef Cancel As Boolean) 
End Sub 

Private Sub Application_SheetCalculate( _ 
   ByVal Sh As Object) 
End Sub 

Private Sub Application_SheetChange( _ 
   ByVal Sh As Object, _ 
   ByVal Target As Range) 
End Sub 

Private Sub Application_SheetDeactivate( _ 
   ByVal Sh As Object) 
End Sub 

Private Sub Application_SheetFollowHyperlink( _ 
   ByVal Sh As Object, _ 
   ByVal Target As Hyperlink) 
End Sub 

Private Sub Application_SheetLensGalleryRenderComplete( _ 
   ByVal Sh As Object) 
End Sub 

Private Sub Application_SheetPivotTableAfterValueChange( _ 
   ByVal Sh As Object, _ 
   ByVal TargetPivotTable As PivotTable, _ 
   ByVal TargetRange As Range) 
End Sub 

Private Sub Application_SheetPivotTableBeforeAllocateChanges( _ 
   ByVal Sh As Object, _ 
   ByVal TargetPivotTable As PivotTable, _ 
   ByVal ValueChangeStart As Long, _ 
   ByVal ValueChangeEnd As Long, _ 
   ByRef Cancel As Boolean) 
End Sub 

Private Sub Application_SheetPivotTableBeforeCommitChanges( _ 
   ByVal Sh As Object, _ 
   ByVal TargetPivotTable As PivotTable, _ 
   ByVal ValueChangeStart As Long, _ 
   ByVal ValueChangeEnd As Long, _ 
   ByRef Cancel As Boolean) 
End Sub 

Private Sub Application_SheetPivotTableBeforeDiscardChanges( _ 
   ByVal Sh As Object, _ 
   ByVal TargetPivotTable As PivotTable, _ 
   ByVal ValueChangeStart As Long, _ 
   ByVal ValueChangeEnd As Long) 
End Sub 

Private Sub Application_SheetPivotTableUpdate( _ 
   ByVal Sh As Object, _ 
   ByVal Target As PivotTable) 
End Sub 

Private Sub Application_SheetSelectionChange( _ 
   ByVal Sh As Object, _ 
   ByVal Target As Range) 
End Sub 

Private Sub Application_SheetTableUpdate( _ 
   ByVal Sh As Object, _ 
   ByVal Target As TableObject) 
End Sub 

Private Sub Application_WindowActivate( _ 
   ByVal Wb As Workbook, _ 
   ByVal Wn As Window) 
End Sub 

Private Sub Application_WindowDeactivate( _ 
   ByVal Wb As Workbook, _ 
   ByVal Wn As Window) 
End Sub 

Private Sub Application_WindowResize( _ 
   ByVal Wb As Workbook, _ 
   ByVal Wn As Window) 
End Sub 

Private Sub Application_WorkbookActivate( _ 
   ByVal Wb As Workbook) 
End Sub 

Private Sub Application_WorkbookAddinInstall( _ 
   ByVal Wb As Workbook) 
End Sub 

Private Sub Application_WorkbookAddinUninstall( _ 
   ByVal Wb As Workbook) 
End Sub 

Private Sub Application_WorkbookAfterRemoteChange() 
End Sub 

Private Sub Application_WorkbookAfterSave( _ 
   ByVal Wb As Workbook, _ 
   ByVal Success As Boolean) 
End Sub 

Private Sub Application_WorkbookAfterXmlExport( _ 
   ByVal Wb As Workbook, _ 
   ByVal Map As XmlMap, _ 
   ByVal Url As String, _ 
   ByVal Result As XlXmlExportResult) 
End Sub 

Private Sub Application_WorkbookAfterXmlImport( _ 
   ByVal Wb As Workbook, _ 
   ByVal Map As XmlMap, _ 
   ByVal IsRefresh As Boolean, _ 
   ByVal Result As XlXmlImportResult) 
End Sub 

Private Sub Application_WorkbookBeforeClose( _ 
   ByVal Wb As Workbook, _ 
   ByRef Cancel As Boolean) 
End Sub 

Private Sub Application_WorkbookBeforePrint( _ 
   ByVal Wb As Workbook, _ 
   ByRef Cancel As Boolean) 
End Sub 

Private Sub Application_WorkbookBeforeRemoteChange() 
End Sub 

Private Sub Application_WorkbookBeforeSave( _ 
   ByVal Wb As Workbook, _ 
   ByVal SaveAsUI As Boolean, _ 
   ByRef Cancel As Boolean) 
End Sub 

Private Sub Application_WorkbookBeforeXmlExport( _ 
   ByVal Wb As Workbook, _ 
   ByVal Map As XmlMap, _ 
   ByVal Url As String, _ 
   ByRef Cancel As Boolean) 
End Sub 

Private Sub Application_WorkbookBeforeXmlImport( _ 
   ByVal Wb As Workbook, _ 
   ByVal Map As XmlMap, _ 
   ByVal Url As String, _ 
   ByVal IsRefresh As Boolean, _ 
   ByRef Cancel As Boolean) 
End Sub 

Private Sub Application_WorkbookDeactivate( _ 
   ByVal Wb As Workbook) 
End Sub 

Private Sub Application_WorkbookModelChange( _ 
   ByVal Wb As Workbook, _ 
   ByVal Changes As ModelChanges) 
End Sub 

Private Sub Application_WorkbookNewChart( _ 
   ByVal Wb As Workbook, _ 
   ByVal Ch As Chart) 
End Sub 

Private Sub Application_WorkbookNewSheet( _ 
   ByVal Wb As Workbook, _ 
   ByVal Sh As Object) 
End Sub 

Private Sub Application_WorkbookOpen( _ 
   ByVal Wb As Workbook) 
End Sub 

Private Sub Application_WorkbookPivotTableCloseConnection( _ 
   ByVal Wb As Workbook, _ 
   ByVal Target As PivotTable) 
End Sub 

Private Sub Application_WorkbookPivotTableOpenConnection( _ 
   ByVal Wb As Workbook, _ 
   ByVal Target As PivotTable) 
End Sub 

Private Sub Application_WorkbookRowsetComplete( _ 
   ByVal Wb As Workbook, _ 
   ByVal Description As String, _ 
   ByVal Sheet As String, _ 
   ByVal Success As Boolean) 
End Sub 

Private Sub Application_WorkbookSync( _ 
   ByVal Wb As Workbook, _ 
   ByVal SyncEventType As Office.MsoSyncEventType) 
End Sub 

C# Samples

For examples in C# refer to the [[Excel Interop > Event Handling]] page.

void WhichObject (string eventName, object sheet) 
{ 
   Excel.Worksheet wsh = sheet as Excel.Worksheet 
   if (worksheet != null) 
   { 
      // this is a worksheet 
   } 
   Excel.Chart cht = sheet as Excel.Chart 
   { 
      // this is a chart 
   } 
} 

In VSTO you do not have to keep a reference to the workbook, worksheet or chart objects when handling events because they are already being kept by the project items generated by the project.
However you do need to keep a reference to the Application object
To get a worksheet or chart we can use the VSTO's Global object