ejecutar macro al cambiar el valor de una celda determinada

[avac]

YO TENGO ALGO MEJOR
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("A1:A2"), Target) Is Nothing Then Call MiFuncion
End Sub

Public Sub MiFuncion()
MsgBox "VALOR DE LA CELDA A CAMBIADO"
End Sub

ESTO SIRVE SI EL VALOR DE LA CELDA A1 ES =A2 ESTONCES SI CAMBIO EL VALOR DE A2 AUTOMATICAMENTE CAMBIA EL VALOR DE A1