Windows(2).Selection.SlideRange.CopyWith Presentations(1).Slides.Paste(2) .FollowMasterBackground = ksoFalseEnd With