Sub FormatSoftEdgesWithLoop() Dim myChart As Chart Dim ser As Series Set myChart = ActiveChart Set ser = myChart.SeriesCollection(1) For i = 1 To 6 ser.Points(i).Format.SoftEdge.Type = i Next i End Sub