Selecting All Shapes
Sub select() ActivePresentation.Slides(myPresentation.Slides.Count).Shapes.SelectAll End Sub