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