Vb y excel evento enter

[Triby]

En el código de la hoja correspondiente a "CONSULTA" pega lo siguiente:

Código vb:

Private Sub Worksheet_Change(ByVal Target As Range)
    ' Si la celda actualizada no es la que necesitas, entonces sales sin hacer cambios
    If Intersect(Target, Me.Range("E4")) Is Nothing Then Exit Sub
 
    ' Desactivas detección de eventos para prevenir ciclo infinito
    Application.EnableEvents = False
 
    ' ***********************
    ' Aquí agregas tu código para copiar, pegar y ejecutar la consulta
    ' ***********************
 
    ' Activas nuevamente la detección de eventos para poder continuar
    Application.EnableEvents = True
End Sub