Really very frustrating for me..........still not working

I did followings:

ReDim port_PL(no) As Double
For i = 1 To no
Sheets("temp3").Cells(i, 1) = ((-2 * Application.WorksheetFunction.Ln(Rnd(1))) ^ 0.5) * Cos(2 * 22 * Rnd(1) / 7)
Next i
ActiveWorkbook.Names.Add Name:="rngPop", RefersToR1C1:="=OFFSET(temp3!$A$1,,,COUNTA(temp3!$A:$A),1)"

port_PL = Sample(rngPop, no, True, False)


However I am getting following error:
compile error:
ByRef argument type mismatch