Countif function problem in a macro

[Mister P]

I'm using the SUM, COUNTA and COUNTIF functions in a macro. The SUM and COUNTA works but the COUNTIF function does not return results.

Sub B_Test()

Dim myRange
Dim Results
Dim Run As Long
myRange = Workbooks(1).Worksheets("Master").Range("S6", Range("S6").End(xlDown))
Range("M3") = Application.WorksheetFunction.Sum(myRange)
myRange = Workbooks(1).Worksheets("Master").Range("D6", Range("D6").End(xlDown))
Range("D3") = Application.WorksheetFunction.CountA(myRange)
'myRange = Workbooks(1).Worksheets("Master").Range("P6", Range("P6").End(xlDown))
'Range("E3") = Application.WorksheetFunction.CountIf(myRange, "">0"")

End Sub

I have tried countless ways to rewrite the COUNTIF line with no results or compiler errors returned. Originally had problems with the SUM and COUNTIF function and found that column formating was the problem. After clearing all column formats, the SUM function promptly began working but the COUNTIF keeps eluding all my efforts. The column which the COUNTIF is pointed to contains values of 0 to 500. Only values greater than 0 are to be counted.

I would appreciate if someone could trouble shoot this part of my code.
Thanks in advance.

[Leith Ross]

Hello Mister P,

When assigning objects to object variables, you need to use the Set statement.
Example

Please Login or Register  to view this content.

[Mister P]

Thanks Leith, for your prompt reply. All functions now work as intended. You have saved me hours trying to resolve the problem.

Cheers