Sub windowState() Application.WindowState = ppWindowMaximized Windows.Arrange ArrangeStyle:=ppArrangeCascade End Sub