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

OK, Cancel works the way I was hoping, thank you so much.
However, as I was mentioning to Graham, it picks up, all the empty paragraph marks under the sentence, but it doesn't pick up the text list. So I end up with a pack of numbers.

But with all our heads together, we can come up with a magical plan. I feel it.

Thanks so much.

How can I learn to do programming like an expert?

Oh and by the way, now I work with Word 365. I've tried to update my profile info here, but the most I found was Word 2019. Not sure who is in charge of this forum.
It's an great forum. I learn so much from you experts. I'm hoping one day to ''get it''. So fare for me, it 's trial and error. Searching for answers in Google.

Thanks so much for guiding me

Cendrinne