creating a popup answer for an average range of cells

[1zipsails]

How do I Roll over a range of cells and have their average show as a "pop up"?

 

[Barb Reinhardt]

This will give you an average for each and every selection you make. I'm
guessing it's going to be obnoxious if someone is changing any data.

Right click on the worksheet to View source. Paste this in

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsEmpty(Target) Then
MsgBox ("Average: " & WorksheetFunction.Average(Target.Value))
End If
End Sub