Powerpoint VisualBasic Script

Sub footerV()
    ActivePresentation.Slides(5).HeadersFooters.Footer.Visible = msoFalse
End Sub