Press Alt F11
Insert New Module
Paste this in the module


Function FormulaIs(myCell As Range)

FormulaIs = "'" & myCell.Formula

End Function

THis ASSUMES only one cell is used in the formula.

IN aqn adgacent cell to your formula, enter

=FormulaIS(A1)

Or other appropriate reference.

You'll get the formula in A1.
--
HTH,
Barb Reinhardt



"vaso82" wrote:

i've searched microsoft.public.excel with keywords "formula
substitute values", but haven't found the answer.
Please help if you know how to do it.
Thanks in advance!