Sub RowCount()
Dim x, Xcount
For Each x In Selection
If x.Value < 0 Then Xcount = Xcount + 1
Next
MsgBox ("Numbers of rows < 0 : ") & Xcount
End Sub