Count Non Blanks In A Range

I have use for this function on varying ranges. I pasted my function as well as my call to it. PhasesActive is just a named range of 5 cells. I get an error... by ref argument type error. Something with the argument, do I have to name the worksheet the range is on?

Function RangeValueCount(Rng As range)
'The function to check if a range has more than one value marked for 'selection, ex: The phases choices

For Each cell In Rng
If Not IsEmpty(cell) Then
RangeValueCount = RangeValueCount + 1
End If
Next cell
End Function

Call RangeValueCount(PhasesActive)
If RangeValueCount > 1 Then
msg = "There appears to be multiple phases selected. Please select only" & vbNewLine
msg = msg & "one phase at a time"
MsgBox msg
End If