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