Sub headerFooter() Dim myHeader As HeaderFooter Set myHeader = ActiveDocument.Sections(1).Headers _ (wdHeaderFooterPrimary) End Sub