This is one way to do it using vba

Dim myrange As Range
Set myrange = Selection.Cells(1).Range
myrange.End = myrange.End - 1
myrange.Start = Selection.Range.Start
myrange.Select

But, if you do not need to select it, don't. myrange.Text will return the
text that would have been selected, so you for instance, insert that text in
another location by using

[object].InsertBefore myrange.Text

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

wrote in message
oups.com...
Actually, that does work. I was thinking it would lose where the cursor
sat in the text, but if one selects to the end and then uses the left
arrow key, you get what you want. A VBA script can do that, so I have
what I need. Thanks,

IMF