Powerpoint VisualBasic Script

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