maximizes any workbook when it is activated
Private Sub AppEvent_WorkbookActivate(ByVal Wb as Workbook) Wb.WindowState = xlMaximized End Sub