Hi all,
pls. i found one very old code from net, but it works only for concrete workbook if i copy this code to ThisWorkbook module.
Is it possible to change this code this way, that then will be possible it use in Personal.xls.
What i want is always, when i run excel, my status bar will show all this info (count, sum, max, min of range cells)
thank you
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim statusLine As String
On Error Resume Next
With Application.WorksheetFunction
statusLine = "Sum=" & .Sum(Target)
statusLine = statusLine & "; Average=" & .Average(Target)
statusLine = statusLine & "; Non-blank=" & .CountA(Target)
statusLine = statusLine & "; Min=" & .Min(Target)
statusLine = statusLine & "; Max=" & .Max(Target)
End With
Application.StatusBar = statusLine
End Sub
Private Sub Workbook_Deactivate()
Application.StatusBar = False
End Sub