On 26/08/2017 13:31, Peter T wrote:
Apply the format for the greatest number of points in one go, something like
[...]
' if Rini To Rfin -1 is most of the points

Unfortunately, it's not the case.

For i = 1 to pts.count
if i < Rini or i Rfin Then
With pts(i)
' apply the other format
End With
End If
Next

It's not clear to me why you put the 'if' inside the 'for'.

Cristiano