I am trying to past the formula from a cell into another
cell as text. That is if cell A1 has a formula which is
=Sum(A2:A10). I want to be able to past the text version
of this to say B1. So B1 will say 'Sum(A2:A10). How do
you do this?

I have been trying:

Range("B1") = Range("A1").formula

But this is not giving me what I want.

THanks

ExcelMonkey

one way:

Range("B1") = "'" & Range("A1").Formula

Regards

Trevor


"ExcelMonkey" wrote in message
...
I am trying to past the formula from a cell into another
cell as text. That is if cell A1 has a formula which is
=Sum(A2:A10). I want to be able to past the text version
of this to say B1. So B1 will say 'Sum(A2:A10). How do
you do this?

I have been trying:

Range("B1") = Range("A1").formula

But this is not giving me what I want.

THanks

Or

Range("B1").Value = Right(Range("A1").Formula, Len(Range("A1").Formula) - 1)



"ExcelMonkey" wrote:

I am trying to past the formula from a cell into another
cell as text. That is if cell A1 has a formula which is
=Sum(A2:A10). I want to be able to past the text version
of this to say B1. So B1 will say 'Sum(A2:A10). How do
you do this?

I have been trying:

Range("B1") = Range("A1").formula

But this is not giving me what I want.

THanks

Thanks


-----Original Message-----
ExcelMonkey

one way:

Range("B1") = "'" & Range("A1").Formula

Regards

Trevor


"ExcelMonkey"
wrote in message
...
I am trying to past the formula from a cell into another
cell as text. That is if cell A1 has a formula which
is
=Sum(A2:A10). I want to be able to past the text
version
of this to say B1. So B1 will say 'Sum(A2:A10). How do
you do this?

I have been trying:

Range("B1") = Range("A1").formula

But this is not giving me what I want.

THanks


.