Workbook activation events
Private Sub Workbook_Activate() ActiveWindow.WindowState = xlMaximized End Sub