dmb Wrote:
'Public Function DisplayCellFunction(cellID1 As String, cellID2 As
String)
Public Function DisplayCellFunction(cellID1 As Integer, cellID2 As
Integer)
'Copy formulas to the adjacent cell for visual verification
'Range(cellID1) = "'" & Range(cellID2).Formula
Range("F26") = "'" & Range("d26").Formula
End Function


In the workbook I enter

=DisplayCellFunction(F26, D26)
I get a #Name Error

=DisplayCellFunction("F26", "D26")
I get a #Name Error

=DisplayCellFunction(6, 6)
I get a #Value! Error


A Function procedure cannot change the value of another cell. You have
to use a Sub procedure to do that.

You might try to entering a function in the cell where you want the
formula from the adjacent cell displayed.

Try this code for that function


Code:
--------------------

Public Function DisplayCellFunction(CellID As String) As String
Application.Volatile
DisplayCellFunction = "'" & Range(CellID).Formula
End Function

--------------------


Use this syntax:
=DisplayCellFunction("A1")

The Application.Volatile Statement recalculates the value of the
function any time data changes on the sheet. i.e. if you were to
change the formula that cell references, unless you have
Application.Volatile, it won't change the result of your function.


--
Brassman
------------------------------------------------------------------------
Brassman's Profile: http://www.excelforum.com/member.php...o&userid=13290
View this thread: http://www.excelforum.com/showthread...hreadid=495832