Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    ActiveSheet.Cells(1, 1) = Target.Address

End Sub

Ou:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    ActiveSheet.Cells(1, 1) = Replace(Target.Address, "$", "")

End Sub

Ou :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    ActiveSheet.Cells(1, 1) = Target.Address(0, 0)

End Sub

[]s

Mauro, muito agradecido.

Mas nenhuma das duas funcionou. Colei os códigos (um de cada vez) no código da planilha, mas não funcionou.

Mauro, muito agradecido.

Mas nenhuma das duas funcionou. Colei os códigos (um de cada vez) no código da planilha, mas não funcionou.

Não é para utilizar todos, e sim um deles.

O código não é para ser colocado em um módulo, e sim no modulo de evento da aba que quer o retorno, faça o seguinte, clique com o Botão direito do mouse na aba, selecione Exibir Código e cole somente um dos dos códigos indicados.

[]s

Mauro, bom dia!

Mas foi exatamente o que eu tinha feito. Ontem não funcionou. Hoje repeti e está funcionando perfeitamente.

Muito obrigado.