VBA to Analyse a row of values

Try this:_

Sub MG11Sep34
Dim Rng As Range, Dn As Range
Dim oSum As Double
Dim Ac As Integer
Dim AcRng As Range
Dim R
Dim A
Dim Ray(1 To 8)
Dim Fd As Boolean
Set Rng = Range(Range("D4"), Range("D" & Rows.Count).End(xlUp))

For Each Dn In Rng
    Set AcRng = Dn.Resize(, 11)
    For Ac = 1 To 8
        Ray(Ac) = Application.Large(AcRng, Ac)
        oSum = oSum + Application.Large(AcRng, Ac)
    Next Ac
        For Each A In AcRng
            Fd = False
            For Each R In Ray
                Fd = A = R
                If Fd = True Then Exit For
            Next R
            If Fd = False Then A.Interior.ColorIndex = 6
        Next A
            Dn.Offset(, 13) = oSum
            oSum = 0
Next Dn
Range("A4").Resize(Rng.Count, 17).Sort Range("Q4"), xlDescending
Range("Q1") = "3 Rounds Dropped"
End Sub

Regards Mick

Mick,

Run Time Error '13'
Type Mismatch.

When I go to debug the following line is highlighted:-

oSum = oSum + Application.Large(AcRng, Ac)

It seems to have stopped on the final Rider, none of the lower scores are highlighted and the sum in the last column still contains the same total. The last column now contains the new sums but the row has not been formatted, no headers and it hasnt been sorted.

Regards