With ActivePresentation.Slides.Add(Index:=1, Layout:=wpLayoutTitle).Shapes .Placeholders(2).TextFrame.TextRange = "This is subtitle text"End With