Hello,
I've got a problem with a Word macro: Instead of searching in the
header of the current section, it will jump to the header of the
previous section on "Selection.Find.Execute".
I can't seem to find the error. Any help's appreciated!
Thanks, Udo

Here's the code:

Sub NewHeader()
   Selection.InsertBreak Type:=wdSectionBreakNextPage
   Selection.MoveUp Unit:=wdLine, Count:=2
   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
   ActiveWindow.ActivePane.View.NextHeaderFooter
   Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter.
_
       LinkToPrevious
   Selection.Extend
   Selection.Find.ClearFormatting
   With Selection.Find
       .Text = ")"
       .Replacement.Text = ""
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute
   Selection.Delete Unit:=wdCharacter, Count:=1
   Selection.TypeText Text:="()"
   Selection.MoveLeft Unit:=wdCharacter, Count:=1
End Sub