works on all the chart sheets in the active workbook
Sub ChartType2() Dim myChart As Chart For Each myChart In ActiveWorkbook.Charts myChart.Type = xlArea Next myChart End Sub