Hi! Maybe someone will spot why I loose my extend selection when I try
to block after the second search? Appreciate your help.

' Removes existing contractor data
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
With Selection.Find
.Text = "Contractors"
.Style = "Heading 2"
.Forward = True
.Execute
If Not .Found Then GoTo SaveClose
End With

With Selection
.MoveRight Unit:=wdCharacter, Count:=2
.ExtendMode = False
.ExtendMode = True
End With   '*******works fine here

Selection.Find.ClearFormatting
'Leave notes alone
With Selection.Find
.Text = "NOTE(S):"
.MatchCase = True
.Forward = True
.Execute          '***works fine here
End With

If Selection.Find.Found Then GoTo SkipHead2
'check for nect section if note: not found

With Selection
.ExtendMode = False   '***does not shut off here
.ExtendMode = True     ' does not work
End With

With Selection.Find
.Text = "T"
.Style = "Heading 2"
.Forward = True
.Execute
End With                'loose the extend here
SkipHead2:
With Selection
.HomeKey Unit:=wdLine
.ExtendMode = True
End With
Selection.Delete Unit:=wdCharacter, Count:=1  'deletes the T xwrong