Selection.EscapeKey (Word)

Cancels a mode such as extend or column select (equivalent to pressing the ESC key).

With Selection 
 .ExtendMode = True 
 .EscapeKey 
End With