Sub ChartType() Dim myChart As ChartObject For Each myChart In ActiveSheet.ChartObjects myChart.Chart.Type = xlArea Next myChart End Sub