Thank you for your effort. I'm so grateful.

It's progress. It's almost to what I need.
The danger in that script, is that it selects all the empty paragraph marks under it, & it doesn't pick up text List (text list meaning, it doesn't open the auto List fomat), but I do have titles beggining with numbers with tabs. So I ended up with numbers.

I'm trying to include also the vbYesNoCancel. With your script, I've figured out how to managed mine a little bit.

This is an example of titles numbers, text list. If you copy this in word, you will get paragraph marks where you see space below.

****If you use the script, to find (continued)**** ====> hoping to delete the whole sentence with the 1. tab and sentence.****

1. Significant accounting policies (continued)




2. Significant accounting policies (continued)




3. Significant accounting policies (continued)



4. Significant accounting policies (continued)



5. Significant accounting policies (continued)

This is my modified script that picks up text numbers, and moves forwards. But I can excecute Cancel, however, it does the same things as ''ansering No''.
Any insights?

Sub Delete_Sentence_if_Word_found()
Dim strTexts As String
Dim oRng As range
Dim bFound As Boolean
bFound = False
strTexts = InputBox("Enter texts to be found here: ")
Set oRng = ActiveDocument.range
With oRng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = strTexts
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
While .Execute
bFound = True
oRng.Expand Unit:=wdParagraph
oRng.Select
ActiveDocument.ActiveWindow.ScrollIntoView Selection.range, True
If MsgBox("Are you sure to delete the sentence?", vbYesNoCancel) = vbYes Then
Selection.Delete
'Else: Exit Sub
'End If
'oRng.Collapse wdCollapseEnd
'.Execute
If (vbYesNoCancel) = vbCancel Then
Exit Sub
End If
End If
oRng.Collapse wdCollapseEnd
'.Execute
Wend
End With
If Not bFound Then
MsgBox "You have put a text that is not part of the document." & vbCr + vbCr _
& "Put another texte and try again.", vbInformation & vbOKOnly, "THE TEXT IS NOT IN THIS DOCUMENT"
End If
lbl_Exit:
Set oRng = Nothing
Exit Sub
End Sub