Sub headerfooter() ActiveDocument.Sections(3).Footers(wdHeaderFooterPrimary).LinkToPrevious = FalseEnd Sub