With Windows(1).Selection.SlideRange If .Layout = wpLayoutTitleOnly Then .Layout = wpLayoutTitle End IfEnd With