Count cells with values in odd columns

Macro Title:

Worksheet Variable:

Worksheet Name:

Range Reference:

Output Cell:

First Comment:

Second Comment:

Sub Count_cells_with_values_in_odd_columns()

'declare a variable
Dim ws As Worksheet

Set ws = Worksheets("Analysis")

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

End Sub

Sub Count_cells_with_values_in_odd_columns()

'declare a variable

Dim ws As Worksheet

Set ws = Worksheets("Analysis")

'count cells with values in odd columns

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

End Sub

Sub Count_cells_with_values_in_odd_columns()

'declare a variable
Dim ws As Worksheet

Set ws = Worksheets("Analysis")

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

End Sub