If you are looping anyway to generate the array, why not calculate you
average in the loop yourself:
for each cell in YourRange
RunTotal=RunTotal+csng(cell.value)
cellcount=cellcount+1
Next
MyAvg=RunTotal/cellcount

However, I'm sure this method will be slow.

What about :
with application.worksheetfunction
MyAvg=.Sum(...ranges..)/.CountA(...ranges..)
end with

NickHK

"ExcelMonkey" wrote in message
...
I am getting a Run Time Error '13' Type Mismatch Error on the following
line
of code:

Var1 = Application.WorksheetFunction.Average(Array1)

The Array is filled with data from the cells in the spreadsheet while in a
For next loop. It populates the arrray after a Calculate. Whenever I
increase the loop 65,000 runs, I get the error on this line of code.
The
Array is dimensioned as a Variant. Is a Type Mismatch of this kind
occuring
becuase I am loading a spreadsheet error (i.e. DIV/0 etc) into the array
and
the Average function fails? It does not seem to fail on runs less than
65000.

How can I check the contents of the array to see what would cause the
Average function to fail?

Thanks