Sub ChartType2() Dim myChart As Chart For Each myChart In ActiveWorkbook.Charts myChart.Type = xlArea Next myChart End Sub