Activates the ChartObject named Chart 1
Sub activate() ActiveSheet.ChartObjects("Chart 1").Activate End Sub