Sub textRange() ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange _ .Paragraphs(Start:=2, Length:=1).Text = "VP of Business Development"End Sub