Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.DisplayStatusBar = True
On Error Resume Next
Application.StatusBar = "Average=" & Application.Average(Selection) & "; " &
_
"Count=" & Application.CountA(Selection) & "; " & _
"Count nums=" & Application.Count(Selection) & "; "
& _
"Sum=" & Application.Sum(Selection) & "; " & _
"Max=" & Application.Max(Selection) & "; " & _
"Min=" & Application.Min(Selection)
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Hugues" wrote in message
...
Hello,

Does anyone know if there is any way to set up the Status Toolbar so that
we
can see BOTH Sum and Avg at the same time? It would save me having to
switch
back and forth from one to the other all the time...

Thanks,
Hugues