wHAT AM i DOING wrong

[DMB]

'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

[Brassman]

'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

Please Login or Register  to view this content.

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.