Hello All,

I would like to know how to convert this code so it provides an average rather then a Total of the numbers

Private Sub Label35_Click()
    Dim x, j
    With Results
        For j = 0 To .ListCount - 1
            x = x + .List(j, 7)
        Next
        Label35.Caption = x / .ListCount
    End With

End Sub
Any thoughts please!

Regards,

John