Can do this with VBA (Macro) code using a UDF (User Defined Function)
To install the VBA code for the UDF:
- Alt and F11 to open the VBA editor window
- In the VBA editor select menu item Insert -> Module
- Copy the VBA code below and paste into the VBA editor.
- Close the VBA editor (Cross very top right of VBA editor window)
- Save the workbook using "Save as" and set the "Save as type" field to as Excel Macro-enabled Workbook (*.xlsm).
Ensure macros are enabled as follows.
- If Developer ribbon is visible then go to step 4.
- If Developer ribbon not visible, Right click anywhere in one of the ribbons and select "Customize the ribbon".
- On the right side of the dialog check the box against "Developer" and click OK. (Ensure you click OK and not use cross top right of dialog)
- Select Developer ribbon.
- Select Macro Security (In the Code block at left end of Developer ribbon).
- The dialog that displays should default to Macros in left column.
- Select required security option button. (Option to "Disable all macros with notification" should be OK.)
- Click OK to close the dialog.
To use the UDF
Enter the following formula in a cell where A1 is the cell containing the formula
or if formula is on a different worksheet then it will be something like as follows with the sheet name in the reference.
Following is the UDF Code (and Yes! Only 3 lines of code).
Function GetFormula(rng As Range) As String
GetFormula = rng.Formula