Convert an address into a Relative Address?

[rkcim]

I have an Absolute address, and I am trying to find the easiest way to convert it to a Relative address.

Any ideas?

 

[Juan Pablo González]

How about this as well:

<font face=Courier New><SPAN style="color:#00007F">Option</SPAN> <SPAN style="color:#00007F">Explicit</SPAN>

<SPAN style="color:#00007F">Sub</SPAN> Test()
    <SPAN style="color:#00007F">Dim</SPAN> MyAddress <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>
    MyAddress = "$A$10"
    MyAddress = Relative(MyAddress)
    MsgBox MyAddress
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>

<SPAN style="color:#00007F">Function</SPAN> Relative(Add <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>) <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>
    Relative = Application.ConvertFormula(Add, xlA1, xlA1, 4)
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Function</SPAN></FONT>