WorkbookDeactivate Event Example

This example arranges all open windows when a workbook is deactivated.

Private Sub App_WorkbookDeactivate(ByVal Wb As Workbook)
    Application.Windows.Arrange xlArrangeStyleTiled
End Sub