Hello,
has anyone encountered with the following problem?
I have a macro that counts non-empty cells in columns. It works on the first pass, but for all consecutive ones shows a "Type Mismatch" error. The code is below:

For i = 2 To numColumns
 With wb.Worksheets("Sheet1")
  Set r = .Range(.Cells(1, i), .Cells(numRows, i))
  .Cells(numRows+1, i) = WorksheetFunction.CountIf(r, ">0")
 End With
Next i

Thanks in advance.

Flower,

Do any of your cells have textual data in?

This may not be actual text, it could be a space, or even just a "'".

Regards,
Rob

Robzyc, thanks for your interest.
The columns contains integers and empty strings (""). I wrote a code that manually goes through each column and count non-empty cells (without using countif but looping through columns and then rows); however, it is too long for huge data.

Hi Flower,
Well I dont know how much this one is helpfull for you but to check Non zero I use

 If Nz(rs!field1, "") <> "" then
   'do some thing
 End if

' to check value is null or not
 IsNull(rs!field1)

Regards

Ayaz