Show a Formula in Another Cell

[Ken Wright]

The other option would be to write a comment to every cell containing a formula, and then display the comment. This then gives you an easy option to switch on and off using view/comments. Gets a bit messy with lots of contiguous cells with formulas, but no more so than anything else.

Sub Formulas() 
Dim cel As Range
On Error Resume Next
Application.ScreenUpdating = False
For Each cel In ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas, 23)
    With cel
        .AddComment
        .Comment.Visible = True
        .Comment.Text Text:=.Formula
    End With
Next cel
Application.ScreenUpdating = True
End Sub

Regards
Ken.....................