Show a Formula in Another Cell

[Mike_R]

For a less invasive appraoch, how about something like the following:

Sub ShowFormulas()
With ActiveWindow
    .NewWindow
    .DisplayFormulas = True
    .Parent.Windows.Arrange ArrangeStyle:=xlVertical
End With
End Sub

,
Mike