Find text after using Selection.Extend function
<p>I have used <code>Selection.Extend</code> to make selection of particular text from <code>Start</code> to <code>End</code> Now Text is in selection from the following code:</p>

<pre><code>Selection.Find.ClearFormatting
        With Selection.Find
        .Text = "Start"
        .Forward = True
        .Wrap = wdFindStop
        End With
    Selection.Find.Execute
    If Selection.Find.Found = False Then
    Else

    Selection.Extend

    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "End"
        .Forward = True
        .Wrap = wdFindStop
   End With
   Selection.Find.Execute
   End If
</code></pre>

<p>after selection I want to find "ABCD" in Selected text by the following code:</p>

<pre><code>   Selection.Find.ClearFormatting
        With Selection.Find
            .Text = "ABCD"
            .Forward = True
            .Wrap = wdFindStop
        End With
    Selection.Find.Execute
    If Selection.Find.Found = True Then
    MsgBox ("Found")
    Else
    MsgBox ("Not Found")
    End If
</code></pre>

<p>but instead of finding it is Extending the selection to <code>ABCD</code> where ever it finds.</p>

<p>so my question is how do i escape from previous selection and <code>selection.Find.Execute</code> the <code>ABCD</code> within <code>Start</code> and <code>End</code>?</p>

<p><img src="https://i.stack.imgur.com/oPVgG.png"> </p>