Function xlAverage01(rng)
xlAverage01 =
WorksheetFunction.Average(rng)
End Function
Function xlAverage02(rng)
With WorksheetFunction
xlAverage02 = .Average(rng)
End With
End Function
Function xlAverage03(rng)
Dim wsf As WorksheetFunction
Set wsf = WorksheetFunction
xlAverage03 = wsf.Average(rng)
End Function
|
