find listbox column Average

[av8tordude]

The code below i found using google, but i have not been able to find anything that gets the average of a listbox column. Can someone assist me to getting the average of the



With lbxLots
For i = 0 To .ListCount - 1
dPrice = dPrice + .List(i, 2) 'Sum the 3rd column
Next i
End With

[Artik]

Dim dAverange As Double

With lbxLots
For i = 0 To .ListCount - 1
dPrice = dPrice + .List(i, 2) 'Sum the 3rd column
Next i

dAverange = dPrice / .ListCount
End With
Artik

[av8tordude]

Thank you Artik for your help:friends: