Count numeric cells in a range

Macro Title:

Worksheet Variable:

Output Variable:

Data Range Variable:

Count Variable:

Worksheet Name:

Range Reference:
enter the range from which you want to count only numeric cells

Output Cell:

First Comment:

Second Comment:

Sub Count_numeric_cells_in_a_range()

'declare variables
Dim ws As Worksheet
Dim Output As Range
Dim Data As Range
Dim CountFormula As Double

Set ws = Worksheets("Analysis")
Set Output = ws.Range("F4")
Set Data = ws.Range("B5:C11")
CountFormula = Application.WorksheetFunction.Count(Data)

'count numeric cells in the Data range using the COUNT function
Output = CountFormula

End Sub

Sub Count_numeric_cells_in_a_range()

'declare variables

Dim ws As Worksheet
Dim Output As Range
Dim Data As Range
Dim CountFormula As Double

Set ws = Worksheets("Analysis")
Set Output = ws.Range("F4")
Set Data = ws.Range("B5:C11")
CountFormula = Application.WorksheetFunction.Count(Data)

'count numeric cells in the Data range using the COUNT function

Output = CountFormula

End Sub

Sub Count_numeric_cells_in_a_range()

'declare variables
Dim ws As Worksheet
Dim Output As Range
Dim Data As Range
Dim CountFormula As Double

Set ws = Worksheets("Analysis")
Set Output = ws.Range("F4")
Set Data = ws.Range("B5:C11")
CountFormula = Application.WorksheetFunction.Count(Data)

'count numeric cells in the Data range using the COUNT function
Output = CountFormula

End Sub