acarloos,

Boa tarde!

Já tentou assim?

    If Not Intersect(ActiveCell, Range("A2")) Is Nothing Then Range("C2").Value2 = ActiveCell.FormulaLocal

Wagner,

Dessa forma que você sugeriu não funcionou e acaba dando o seguinte erro :

Erro em tempo de execução '1004"
Erro de definição de aplicativo ou de definição de objeto.

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(ActiveCell, Range("A2")) Is Nothing Then Range("C2").Value2 = ActiveCell.Formula
End Sub

Boa tarde!!

Não serve se for assim..Uma UDF?

Function MostrarFormula(Cell As Range) As String
        If Cell.HasFormula Then MostrarFormula = Cell.Formula
    End Function

Fonte: http://dmcritchie.mvps.org/excel/formula.htm

Att

Boa noite!

Fernando, seu macro tá igual ao do Wagner e não sei a razão pela qual não funcionou aqui. Acabei mexendo e encontrei uma forma
de fazer que pro meu caso aqui seria só retirar esse LOCAL do macro.
Alexandre, também não sei porque a UDF não funcionou aqui. Tô imaginando se é pelo fato do meu Excel ser 2007.

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(ActiveCell, Range("A2")) Is Nothing Then Range("C2").Value2 = ActiveCell.Formula
End Sub

Grato pela contribuição de todos.

Abs

acarloos