Hi,
In 2003 your only solution is to write vba code and create 6 buttons to
display the desired calculations. Here is some quick code not fully tested.
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)
With Application.CommandBars("Calculations")
If Target.Count > 1 Then
On Error Resume Next
Dim S, A, C, M, N, O
S = WorksheetFunction.Sum(Target)
A = WorksheetFunction.Average(Target)
C = WorksheetFunction.Count(Target)
M = WorksheetFunction.Max(Target)
N = WorksheetFunction.Min(Target)
O = WorksheetFunction.CountA(Target)
.Controls(1).Caption = "Sum: " & S
.Controls(2).Caption = "Avg: " & A
.Controls(3).Caption = "Count: " & C
.Controls(4).Caption = "Max: " & M
.Controls(5).Caption = "Min: " & N
.Controls(6).Caption = "CountA: " & O
Else
.Controls(1).Caption = "Sum: "
.Controls(2).Caption = "Avg: "
.Controls(3).Caption = "Count: "
.Controls(4).Caption = "Max: "
.Controls(5).Caption = "Min: "
.Controls(6).Caption = "CountA: "
End If
End With
End Sub
You will need to create a toolbar, here named Calculations and add to that 6
buttons. Code will populate those buttons with calculation results when a
selection is made.