Try this in the ThisWorkbook. module (rt-click icon next to File, view code)

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.StatusBar = False
If TypeName(Selection) = "Range" Then
Workbook_SheetSelectionChange Sh, Selection
End If
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Range)
Dim s As String
Dim wfn As WorksheetFunction
Set wfn = Application.WorksheetFunction
On Error GoTo errH:
If wfn.Count(Target) < 2 Then
s = ""
Else
s = "Sum=" & wfn.Sum(Target) & " " & _
"Avg=" & wfn.Average(Target) & " " & _
"Min=" & wfn.Min(Target) & " " & _
"Max=" & wfn.Max(Target) ' etc
End If
errH:
Application.StatusBar = s

End Sub

If some non-range object is selected the statusbar will not be cancelled.
If it does what you want you could put it in a class module that traps
application level events in an addin or your Personal.

Regards,
Peter T

"Brennan" wrote in message
...
Thanks Niek,

Any chance you know the VBA code for this? I am fairly comfortable with
VBA. Thanks

B