Sub active() With ActiveDocument.Sections(10) If .Headers(wdHeaderFooterFirstPage).Exists = False Then _ .PageSetup.DifferentFirstPageHeaderFooter = True End With End Sub