Sub addTitle() ActivePresentation.SlideMaster.Shapes.addTitle.TextFrame.TextRange.Text = _ "Orientation" End Sub