Defines a Chart object variable and a ChartGroup object variable and then stops
Sub ExploreChartElements() Dim myChart As Chart Dim myChartg As ChartGroup Dim ser As Series Set myChart = ActiveChart Set myChartg = myChart.ChartGroups(1) Set ser = myChart.SeriesCollection(1) Stop End Sub