Excel VisualBasic Script

Sub m()
    ActiveWorkbook.Charts(1).Select
End Sub