Active cells in column D 1

[Ramy27]

To count occupied cells in column D
j = wb.Sheets("Job codes").WorksheetFunction.CountA(D)

doesn't work. What correction is needed here?

---------------------------------
Your help is much appreciated, R.
---------------------------------

 

[PHV]

And this ?
Set myRange = wb.Sheets("Job codes").Range("D")
j = WorksheetFunction.CountA(myRange)


Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[Ramy27]

Yes, it does. Thanks. I don't know how you managed to learn all these!! Well done.

---------------------------------
Your help is much appreciated, R.
---------------------------------

 

[PHV]

I don't know how you managed to learn all these
I only play with the F2 and F1 keys in VBE ...

 

[Ramy27]

Like we have:
Set myRange = wb.Sheets("Job codes").Range("D")
j = WorksheetFunction.CountA(myRange)
in the above post,

is there a way to count occupied ROWS - considering columns A, C and D (for example)

i.e, if column A, C or D has any data in it then count that row...

---------------------------------
Your help is much appreciated, R.
---------------------------------