Change the UDF:

Function GetFormula(cell as range) As String
GetFormula = cell.Formula
End Function

Then put this in F4:
=getformula(i4)
and drag down.



wrote:

I am trying to show the formulas of one range of cell in another range
of cells. I want range (I4:I15) to show the formulas in range(F4:F15).
Below is the formula I am using but I am new to visual basic and I cant
get this formula to work. Can anyone help?

Range("F4:F15").Select
Selection.Copy
Range("I4").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Function GetFormula(I4) As String
GetFormula = cell.Formula
End Function

Any comment is greatly appreciated. Thanks.

--

Dave Peterson