On Mon, 22 Feb 2010 15:50:33 -0500, "Rick Rothstein"
wrote:

To Ron
===========
You know me and one-liners... see below for an even simpler (well, at least
shorter) UDF. <g

To Peter
===========
Install this UDF using the same instructions Ron gave you for his UDF...

Function AvgString(S As String) As Double
AvgString = Evaluate("=AVERAGE(" & Replace(S, " ", ",") & ")")
End Function

But is it faster?
--ron