Ler o conteúdo da célula onde se posiciona o cursor

Se quisermos ver o conteúdo de uma célula numa outra célula, como por exemplo, ver na célula "A1" o valor contido na célula "C4" (ou "C5","C1",etc):

podemos utilizar o procedimento que a seguir transcrevo:

Código:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("A1") = ActiveCell.Value
End Sub

Atenção: clicar com o botão direito do rato no tabulador da folha, escolher "Ver Código" e na folha em branco do Editor de VBA colocar o procedimento descrito. Fechar o Editor e experimentar.