Range("D2").Value = replace(ActiveCell.Address,"$","")

--
When you lose your mind, you free your life.


"Matt" wrote:

Hi There,

I ran into more problems ...

Now I have a macro which determines the start cell of a range of cells
with this function:

Range("D2").Value = ActiveCell.Address

in cell D2 it will put like $B$17.

- How can i make it so it doesnt put $ in there but just B17?

- I have a second function:

ActiveCell.FormulaR1C1 = "=count(R5C2:R65000C2)

which determines how many used cell sare in the column .
and puts the value in lets say D3


Now I need to find the address of the last cell which is B(17+D3).

But I cant get it to work :( It wont add up and I tried Left function
to seperate values but it will only worh on a string.

Any help appreciated :)

Matt