passing variable?

Hello!
I want to make a udf function in VBA to count something from a range of cells. This is the code:

Function NrOreProgramNormal(domeniu As Range)
ActiveCell.Formula = "=COUNTIF(" & domeniu & " ,""P"")"
End Function

I get the error "#VALUE!" when I enter the formula (like this: =NrOreProgram(B2:N2) ) in a cell.Can you help me please? Thank you for your time!