Setting the Text in a Header or Footer
Sub footerText() ActivePresentation.Slides(5).HeadersFooters.Footer.Text = "Confidential" End Sub