Selecting a cdrShape from a current selected group of shapes

Hi all.

Having some VBA trouble with selections. The code below will select an ellipse in a group of selected shapes, but as soon as I use it with other (unselected) ellipse shapes on the same layer or page it selects the ellipse that is at the top of the layer heirarchy.

Sub Macro1()
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    Set s = ActivePage.FindShape(Type:=cdrEllipseShape)
End Sub

All I want to do is select the ellipse, or other named cdrShape from the currently selected shapes or group, not from the entire page or layer. Logically I would have assumed I just change ActivePage to ActiveSelection, but that doesn't work.

I'm sure this is simple but I cannot figure it out. Can anyone please point me in the right direction to selecting a cdrShape from the currently selected shapes or group.

Many thanks