I want to enter a sub with a shape selected, deselect, do some other things, then restore the original selection
1 2 3 4 5 6 7 8 9 10
Sub foo() Dim sr As ShapeRange Set sr = ActiveSelectionRange 'do some stuff sr.CreateSelection End Sub
As simple as it is, the .CreateSelection is what I needed.