WorkbookOpen Event Example

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

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