Hi All,
I hope someone has a solution to this oddity. I am attempting with a macro to split a document that has tables and a header with specific information and insert a page that does not have tables and the specific information in the header is removed. I have the following code and if I step through it one line at a time from Microsoft Visual Basic for Applications it works fine. But if I just execute the macro the last section does not remove the LinkToPrevious even if I tell it more than once. I have tried going to the header telling LinkToPrevious to be false, then going back to the main document, and the going back to the header and telling LinkToPrevious to be false again and still it does not work. I am frustrated and under a time deadline. Any help would be greatly appreciated. I would like to know if this is just me or does it to it to others. Here is the code I have been playing with.

Sub Macro3()
'
' Macro3 Macro
'
'
Selection.InsertBreak Type:=wdSectionBreakNextPage
Selection.InsertBreak Type:=wdSectionBreakNextPage
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.HeaderFooter.LinkToPrevious = False
Selection.HeaderFooter.LinkToPrevious = False
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
Selection.GoTo What:=wdGoToSection, Which:=wdGoToPrevious, Count:=1, Name _
:=""


ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.HeaderFooter.LinkToPrevious = False
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.HeaderFooter.LinkToPrevious = False
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
Selection.GoTo What:=wdGoToSection, Which:=wdGoToPrevious, Count:=1, Name _
:=""
Selection.GoTo What:=wdGoToSection, Which:=wdGoToNext, Count:=1, Name:=""


ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
Selection.GoTo What:=wdGoToSection, Which:=wdGoToNext, Count:=1, Name:=""
Selection.GoTo What:=wdGoToSection, Which:=wdGoToPrevious, Count:=1, Name _
:=""
Selection.GoTo What:=wdGoToSection, Which:=wdGoToPrevious, Count:=1, Name _
:=""
Selection.GoTo What:=wdGoToSection, Which:=wdGoToNext, Count:=1, Name:=""


Selection.TypeText Text:="Now is the time"
End Sub