Excel Status Toolbar

[Guest]

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

 

[Bob Phillips]

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)

 

[Guest]

Awesome Bob! Thanks!
I've got to learn VB...

Hugues