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