cris, ficou um pouco confuso, mas em relação a rotina que postou, na Sub Teste está exibindo a mensagem que A1 foi alterado, e na instrução do Evento da planilha está dizendo para continuar somente se a celula "A10" for alterada, ou seja a mesma só continuará a execução se atender a este critério :

If Target.Address = "$A$10" Then

[]s

Vou tentar me explicar melhor. Tenho uma tabela dinâmica com uma coluna chamada CPF e exibo apenas a 1ª linha ou seja apenas o primeiro CPF. Nessa tabela dinâmica inserir uma segmentação de dados com o nome de cada pessoa. Referenciei a célula A10(recebe o CPF da dinâmica), então toda vez que escolho um nome diferente na segmentação troca o CPF. Qdo uso dessa forma ele não executa a função VBA.

A função está funcionando pq qdo vou na célula A10 e troco o valor manualmente o código VBA é executado.

cris, se entendi, você quer que a rotina execute qdo A10 for alterado mas atraves de uma alteração em A1 antes, se for isto, devemos utilizar o Evento Calculate, como não sei como é feita esta interação, sugiro algo como :

Private Sub Worksheet_Calculate()
    If Range("A10").Value <> "" Then
        MsgBox "Range A10 foi alterado"
    End If
End Sub

[]s

Mauro, funcionou perfeitamente. Obrigado peja ajuda.