Mudando o valor de uma célula conforme o clique.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(1, 4).Value = Target.Address(False, False)
End Sub
Essa macro envia para a célula D1 o endereço da última célula selecionada.
A cada seleção de célula, a macro é chamada.
Caso você tenha uma dica ou truque, envie para nós: contato@dicasdeexcel.com.br
Por: Douglas Hideo