Bullet list

[Designingsally]

I m trying to find the the word "add" at the end of the list. Example,
I have a list with 10 points. The macros shd check if the word "AND" in the
10th point. I want the word "AND" ONNLY to be marked. I DONT want the macros
to highlight the whole point. Jus the word ADD and give a comment like change.

The macros partially satisfies my requirements. I ll be glad if someone
comes up with the solution.
Sub jsdfdj()
Dim lList As Long
With ActiveDocument
For lList = ActiveDocument.ListParagraphs.Count To 1 Step -1
With .ListParagraphs(lList).Range
Select Case True
Case InStr(1, .Text, " and ") <> 0, _
InStr(1, .Text, " and") <> 0, _
InStr(1, .Text, "and ") <> 0
Debug.Print True
.Select
ActiveDocument.comments.Add _
Range:=Selection.Range, _
Text:="Do not use the word AND in a bulleted list."
Case Else
''' do nothing
End Select
End With
Next lList
End With
End Sub