Range problem

I created a function in excel and I want to use it in my VBA and I don't know
how to refer to the range

Function PD(func As String, ai As Double, Zi As String, rng As Range)

Say my range is A1:A4

How do I set rng = A1:A4


Any help