|First, a posting tip:|
Before posting code in this forum, please click on the blue line at the end of this post and read this instructions found via that link.
As for your question, why use the value in the status bar? Selecting the cells just to present a number seems pretty inefficient. Why not use code to SUM the negative values and present the number in a message box?
Dim Row, negSum As Integer
For Row = 1 To Range("H" & CStr(Rows.Count)).End(xlUp).Row
If Range("H" & CStr(Row)) < 0 Then
negSum = negSum + Range("H" & CStr(Row))
Easier yet, why not just use a formula in a cell?
Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.