Sub add()
Dim QASlide As slide
With ActivePresentation
Set QASlide = .Slides.add(Index:=.Slides.Count + 1, Layout:=ppLayoutBlank)
QASlide.Shapes.AddTextEffect PresetTextEffect:=msoTextEffect28, _
Text:="Questions " + Chr$(CharCode:=13) + "Answers", _
FontName:="Garde Gothic", FontSize:=54, FontBold:=msoTrue, _
FontItalic:=msoFalse, Left:=230, Top:=125
End With
End Sub