Please Help !!!! - STATUS BAR

Posted by Stephen Thompson on February 28, 2001 1:29 PM

When a group of cells with numerical data has been selected, it is possible to do quick calculations (Avg, Min, Max, sum.. etc) by right clicking on the Status Bar.

Is it possible to add a function (STDEV) to the options which pop-up on the dialogue box??

would be eternally grateful for any help on this as it would save me heaps of time at work.

Thanks
Stephen.

Posted by David Hawley on February 28, 2001 2:52 PM

Hi Stephen

Here a liitle procedure that will add the STDEV of the selected range in the Status Bar if the word STDEV is in cell A1.

Private Sub Workbook_SheetSelectionChange _
(ByVal Sh As Object, ByVal Target As Excel.Range)
Dim WasText As String
If Target.Cells.Count > 1 And Range("A1") = "STDEV" Then
WasText = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.StatusBar = WorksheetFunction.StDev(Selection)
End If
If Target.Cells.Count = 1 Then
Application.StatusBar = WasText
End If
End Sub

To use it Right click on the Sheet picture, top left next to "File" and paste it in. A1 can be any cell you choose.

Dave

OzGrid Business Applications