Excel VisualBasic Script

Sub activate()
    ActiveSheet.ChartObjects("Chart 1").Activate
End Sub