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