Reply to thread

Message: [QUOTE="Gord Dibben, post: 3286918"] I don not believe you can change format on the Status Bar. You can add this event code to Thisworkbook. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _ ByVal Target As Range) Dim s As String Dim wfn As WorksheetFunction Set wfn = Application.WorksheetFunction On Error GoTo errH: If wfn.Count(Target) < 2 Then s = "" Else s = "Sum=" & Format(wfn.Sum(Target), "#,##0.00") End If errH: Application.StatusBar = s End Sub Gord Dibben MS Excel MVP [/QUOTE]