Pasting formula as text

[ExcelMonkey]

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

 

[Trevor Shuttleworth]

ExcelMonkey

one way:

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

Regards

Trevor

 

[Guest]

Or

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

 

[ExcelMonkey]

Thanks

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

one way:

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

Regards

Trevor





.