Powerpoint VisualBasic Script

Sub footerText()
    ActivePresentation.Slides(5).HeadersFooters.Footer.Text = "Confidential"
End Sub