VBA code to convert absolute to semi-relative referenced range

I want to create a function in VBA that has a cell and a range as input like this:

MyFunction (cell1, range1)
...
End function

Calling MyFunction with input parameters cell1 = A1 and range1 = $A$1:$A$10 MyFunction should evaluate the following formula:

RANK(A1,$A$1:$A$10,0)+COUNTIF(A$1:A1,A1)-1

The difficulty with this is that the input range is specified as an absolute reference ($A$1:$A$10) but the formula should use a semi-relative range in the count if statement (A$1:A1).

Can someone please show me the code to do this?

Many Thanks !

Let's try to use Evaluate. In any case, see attached file.

Please Login or Register  to view this content.

Please Login or Register  to view this content.

e.g. in cell B1

PHP Code: 

=gpk(A1,A1:A10,C1:C7) 


PS. I have no idea what A$1:A1 is different from A1 or $A1 or $A$1 or A$1