how to sum numbers greater than the average without using worksheet functions

[Reeza]

So I needed to create a random range and then calculate the average of that range. Once the average is calculated I need to:

A) Calculate how many numbers are greater than the average, highlight all numbers greater than the average and place the amount of numbers that are greater than the average in a cell.

B) Calculate the sum of the numbers that are greater than the average and place that in a cell. However I need to calculate the sum without using the worksheet function.The code below creates a random range, and works out an average. If there is a more efficient way to do so, please feel free to contribute.

I am Using Excel 2010


Sub Example1()
Dim RandRange As Range

Set ExampleRange = Range("C2:J12")
With ExampleRange
.Formula = "=Rand()"
.Font.Bold = True
End With


With Range("C14")
.Value = "Average"
.Offset(0, 1).Name = "Average"
.Offset(0, 1).Formula = "=average(RandRange)"
End With
'Insert Sum