I want to take the average of score without displaying any numbers in
excel and having to paste into excel a formula. i am looking for
assistance to some how average the variable and then paste the answer

Sub rndgenandaver()
Dim score, t, lastt
t = 1
lastt = 10
ReDim score(lastt)
t = 1
For t = 1 To lastt
If t 0 Then score(t) = Rnd()
Next t
End Sub