I want to enter a sub with a shape selected, deselect, do some other things, then restore the original selection
Dim sr As ShapeRange
Set sr = ActiveSelectionRange
'do some stuff
As simple as it is, the .CreateSelection is what I needed.