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

--
HTH,
Barb Reinhardt



"1zipsails" wrote:

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