Using CountIF in VBA - Something wrong with range - 1 row of code only

[makiwara]

everynumber = Application.WorksheetFunction.CountIf(Range(“A1, AD1000”, ">0"))

Hi! It just doesn't work, I tried everything to get along with this CountIf Function but I just doesn't succeed. Could you help me out please? Have a nice day!

 

[Eric W]

I'm not entirely sure what you want, but maybe:

everynumber = Application.WorksheetFunction.CountIf(Range("A1:AD1000"), ">0")