Bom dia!!

Eu gostaria que explicasse melhor sua intenção de usar esse código, pois está usando o evento Change, com o target na célula A2.

Tova vez que mudar a entrada de dados lá, ocorre a ação!

Isso significa que quando o valor de A2 mudar pelo efeito da função (se A1 mudar o nome), não houve entrada em A2.

Digas como vai funcionar sua ideia, para que possamos ajuda-lo
Att

quero que a mensagem apareça apenas se for informado o valor 1 na célula A2. Se por acaso eu informar qualquer outra palavra na célula A1, a mensagem não aparecerá, pq a condição não atende a célula A2. O que acontece é que através da fórmula a mensagem não aparece. Se vc simplesmente digitar o 1 na célula A2 a mensagem aparecerá.

Bom dia!!

Faça os teste

Private Sub Worksheet_Calculate()
   If Range("a2").Value = 1 Then
      MsgBox "ATENÇÃO!!!" & Chr(13) & Chr(13) & _
"O boleto/duplicata está vencido!", vbExclamation + vbOKOnly, "Alerta de Vencimento"
   End If
End Sub

matou a questão...