Funcion para si hay cambios en un rango de un excel

[sariuski11]

Al final lo he consegido.

He utilizado:

Private Sub Workbook_Open()

ThisWorkbook.Worksheets("Test_Conditions").OnEntry = "DidCellsChange"

End Sub


Sub DidCellsChange()


KeyCells = "G3:J17"

If Not Application.Intersect(ActiveCell, Range(KeyCells)) Is Nothing Then ComandoValidar

End Sub


Al cambiar el texto me llama a la funcion pero tengo unas celdas con opciones con data validation y esos cambios no me los reconoce. Que puedo hacer?
Alguien sabe llamar a una funcion cuando hago un cambio en una celda con data validation?