Displaying or Hiding a Header or Footer Object
Sub footerV() ActivePresentation.Slides(5).HeadersFooters.Footer.Visible = msoFalse End Sub