Count only negative numbers

Macro Title:

Worksheet Variable:

Worksheet Name:

Range Reference:
range from which you want to count the number of cells that contain only negative numbers

Output Cell:

First Comment:

Second Comment:

Sub Count_only_negative_numbers()

'declare a variable
Dim ws As Worksheet

Set ws = Worksheets("Analysis")

'count only negative numbers
ws.Range("D5") = Application.WorksheetFunction.CountIf(ws.Range("B5:B11"), "<0")

End Sub

Sub Count_only_negative_numbers()

'declare a variable

Dim ws As Worksheet

Set ws = Worksheets("Analysis")

'count only negative numbers

ws.Range("D5") = Application.WorksheetFunction.CountIf(ws.Range("B5:B11"), "<0")

End Sub

Sub Count_only_negative_numbers()

'declare a variable
Dim ws As Worksheet

Set ws = Worksheets("Analysis")

'count only negative numbers
ws.Range("D5") = Application.WorksheetFunction.CountIf(ws.Range("B5:B11"), "<0")

End Sub