charmoved = Selection.EndOf(Unit:=wpsParagraph, Extend:=wpsExtend) If charmoved = 0 Then MsgBox "Selection unchanged" End If