Hi again Mark,

If you want to put that into a loop for several points then something like
this:-

Dim p As Long

For p = 4 To 7
With Worksheets("Sheet1").ChartObjects("Chart
1").Chart.SeriesCollection(1)
With .Points(p).Border 'Formats from point 3 to point 4
.ColorIndex = 3
.Weight = xlThin
'.Weight = xlThick 'Included for info
.LineStyle = xlContinuous
End With
End With
Next p

--
Regards,

OssieMac