With Selection Set myRange = .GoToNext(What:=wpsGoToField) .MoveRight wpsStory, Extend:=wpsExtend .Fields(1).Select End With