Working with Headers and Footers
Sub footer() ActivePresentation.SlideMaster.HeadersFooters.Footer.Text = "text" End Sub