Trying to count the negative values and ranking them from highest count to lowest
I was going to use the worksheet function like this
But not sure how I can rank them. Maybe I need to use array here?
Result should rank Orange (3), Banana (2) and Apple (1)

I was going to use the worksheet function like this
Code:
Set CountRng = range("B1:F1")
CountApple = Application.WorksheetFunction.CountIf(CountRng, "<0")
Result should rank Orange (3), Banana (2) and Apple (1)