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
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.