Count if 2 cells in 1 row are not empty

[Thompyt]

iRow = ActiveSheet.Range(Not IsEmpty("B"& IPCnt), Not IsEmpty("C"& IPCnt)).Rows(IPCnt).Count



I have been attempting to sum up all the rows where both columns have something in it. If 1 column is empty, it should not count. I keep getting a 1004 error
Col B.....Col C
...x...............=1
...x.........x....=1
..............x....=1

Found a solution:

iRow = WorksheetFunction.CountA(Sheets(WkSht.Name).Range("B" & IPCnt, "C" & IPCnt))     
     If iRow = 2 Then
          DrCnt = DrCnt + 1
     End If

[Welshgasman]

and that error description is? .......

[Micron]

Thanks for posting your solution, and I think it's a good one.
I've seen that error lots of times lately while trying to help out elsewhere so I'm too familiar with it. However, you really should post both the number and message. Sometimes the same number has different messages, and that's one of them. Even if not, there are thousands of error numbers and no way anyone helping you can remember many of them, nor should they have to look them up to help anyone.

[Thompyt]

Will do next time.