Sub set() ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text _ = "Strategic Planning Meeting"End Sub