expression.SelectAll
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example selects all the shapes on myDocument and creates a ShapeRange collection containing all the shapes.
Set myDocument = Worksheets(1)
myDocument.Shapes.SelectAll
Set sr = Selection.ShapeRange