How to refer to a cell with a formula in it and have the formul shown [SOLVED]

Hi Experts!

Does anyone know how to do the following:

in cell A1 on tab Sales I have the following formula
Formula: =ROUND((VLOOKUP(B8,'U:\Sales\[2012Sales.xls]TotalSales'!$B$9:$K$28,4,FALSE)),0)
Value 24

I would like cell B1 on the same tab to reference A1 and display the formula, not the value 24.

is this possible???

Thanks!

SOLUTION (from another board):

Sub fomuldisplay()

Function GetFormula(Cell As Range) As String
GetFormula = Cell.Formula

End Function

-----

in cell b1: =GetFormula(A1)