Relink Sections

Sub RelinkSections()

Dim myRng As Word.Range
Set oDoc = ActiveDocument
For i = 1 To oDoc.Sections.Count

With oDoc.Sections(i)

For j = 1 To 3

.Headers(j).LinkToPrevious = True
.Footers(j).LinkToPrevious = True

Next j

End With

Next i

lbl_Exit:

Exit Sub

End Sub