Sub ChangeCharts() Dim myChart As ChartObject For Each myChart In Sheets("Sheet1").ChartObjects myChart.Chart.ChartType = xlLine Next myChart End Sub