clears the HeaderFooter objects in the notes master in the first open presentation:
Sub header() Presentations(1).NotesMaster.HeadersFooters.Clear End Sub