Count cells with values in even columns

Macro Title:

Worksheet Variable:

Worksheet Name:

Range Reference:

Output Cell:

First Comment:

Second Comment:

Sub Count_cells_with_values_in_even_columns()

'declare a variable
Dim ws As Worksheet

Set ws = Worksheets("Analysis")

'count cells with values in even columns
ws.Range("K5").Formula = "=SUMPRODUCT(--(MOD(COLUMN(C5:I5),2)=0),--(C5:I5<>""))"

End Sub

Sub Count_cells_with_values_in_even_columns()

'declare a variable

Dim ws As Worksheet

Set ws = Worksheets("Analysis")

'count cells with values in even columns

ws.Range("D5").Formula = "=SUMPRODUCT(--(MOD(COLUMN(C5:I5),2)=0),--(C5:I5<>""))"

End Sub

Sub Count_cells_with_values_in_even_columns()

'declare a variable
Dim ws As Worksheet

Set ws = Worksheets("Analysis")

'count cells with values in even columns
ws.Range("K5").Formula = "=SUMPRODUCT(--(MOD(COLUMN(C5:I5),2)=0),--(C5:I5<>""))"

End Sub