Sub add() Dim mySlide As Slide Set mySlide = ActivePresentation.Slides.Add(Index:=1, _ Layout:=ppLayoutTitle) End Sub