Range.InRange (Word)

Returns True if the range to which the method is applied is contained in the range specified by the Range argument.

This method determines whether the range returned by expression is contained in the specified Range by comparing the starting and ending character positions and the story type.

InRange (Range)

Range: Specifies the range that this method uses to determine if it is contained within the specified Range object.

Set myRange = ActiveDocument.Words(1) 
If myRange.InRange(Selection.Range) = False Then myRange.Select