Hi Greg,
Here is another way:
Dim i As Long
Dim j As Long
Dim hf As HeaderFooter
Dim oDoc As Document
Dim myRng As Range
Set oDoc = ActiveDocument
Selection.InsertBreak Type:=wdSectionBreakNextPage
'Get the index number of the added section
i = oDoc.Range(0, Selection.Sections(1).Range.End).Sections.Count
For Each hf In oDoc.Sections(i).Headers
hf.LinkToPrevious = False
Next hf
For Each hf In oDoc.Sections(i).Footers
hf.LinkToPrevious = False
Next hf

Signature
Hope this helps.
Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.
Doug Robbins - Word MVP
> Today I was playing around with a macro to add a new section and kill
> the link to previous header and footer.
[quoted text clipped - 53 lines]
> End With
> End Sub
Greg Maxey - 28 Apr 2006 22:16 GMT
Yep, that works equally well.

Signature
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.
> Hi Greg,
>
[quoted text clipped - 73 lines]
>> End With
>> End Sub