oRng.collapse 0
oRng.Select
as in the original macro should do that.