Excel VisualBasic Script

Sub m()
    ActiveSheet.ChartObjects(1).Select
End Sub