do you know how to higlight text in selection.find and then exit sub