pos = Selection.HomeKey(Unit:=wpsLine, Extend:=wpsMove)If pos = 0 Then MsgBox "Selection was not moved"Else MsgBox "Selection was moved :" & posEnd If