Slaycock, Thank you for all your hard work. I am learning from what you wrote and I know I will use it someday.

Using MacroPod's suggestion, how about the following?


Sub FindOnLineSix()

ActiveDocument.Paragraphs(6).Range
Dim myRange As range.
If InStr (myRange.Text, “NRCS”) Then
Debug.Print “I found Washington”
If InStr (myRange.Text, “Washington”) Then
Debug.Print “I found Washington”
If InStr (myRange.Text, “St Louis”) Then
Debug.Print “I found St Louis”
If InStr (myRange.Text, “Kansas City”) Then
Debug.Print “Kansas City”

End Sub