Use For Each to loop through all chart objects
Sub ChangeCharts() Dim myChart As ChartObject For Each myChart In Sheets("Sheet1").ChartObjects myChart.Chart.ChartType = xlLine Next myChart End Sub