Thanks, that did help get me going in the right direction. The code is
almost the same. This does what I'm looking for.

..TextBox1.Text = Application.Worksheetfunction.Average(Selection)


Donald
"J.E. McGimpsey" wrote in message
...
one way:

With UserForm1
On Error Resume Next
.TextBox1.Text = Application.Average(Selection)
If Err Then _
.TextBox1.Text = "Invalid Selection" 'or perhaps zero
On Error GoTo 0
.Show
End With

In article ,
"D.S." wrote:

Thanks, but that's still not what I'm looking for, that would return the
average of the same range each time. I'm trying to return the average
of
the range I have selected with my mouse at the time the userform is
loaded.