VBA CountA entire column using column index?

[gifariz]

In VBA, is possible to count non-empty cells in a column given column index?
Something like this but using 6 as input instead of F

n = WorksheetFunction.CountA(Range("F:F"))

What I can think of is to make very long array of possible alphabets, but it doesn't look good.

ColNames = Array(A,B,C,D,E,F,G,H,I,J) 'and so on until ZZ
Col_ID = 6 'this is the input
col = ColNames(Col_ID - 1)
n =  WorksheetFunction.CountA(Range(col & ":" & col))

And using R1C1 style in spreadsheet is also not preferable for me. Its okay if only in VBA, but not if changing display in excel into R1C1 style.

TIA

 

[rlv01]

One way.

    Col_ID = 6
    With ActiveSheet
        n = Application.WorksheetFunction.CountA(.Range(.Cells(1, Col_ID), .Cells(.Rows.Count, Col_ID).End(xlUp)))
    End With

 

[gifariz]

One way.

    Col_ID = 6
    With ActiveSheet
        n = Application.WorksheetFunction.CountA(.Range(.Cells(1, Col_ID), .Cells(.Rows.Count, Col_ID).End(xlUp)))
    End With

Thank you!

 

[Akuini]

Try:

n = WorksheetFunction.CountA(Columns(6))

 

[gifariz]

Try:

n = WorksheetFunction.CountA(Columns(6))

Oh wow this is simpler. Thank you!

 

[Akuini]

You're welcome, glad to help & thanks for the feedback.