Tecla Enter para ejecutar comando no funciona

[3pies]

Sacado de la ayuda de VBA:

Código:

Un evento KeyPress no se produce bajo las siguientes condiciones: 
 
Al presionar TAB.
Al presionar ENTER.
Al presionar una flecha de dirección.
Cuando una pulsación de una tecla provoca que
el enfoque se mueva de un control a otro.

Prueba este código que sí funciona:

Código:

Sub cmdHistorico_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Then
        Range("a1") = "Has pulsado intro"
    End If
End Sub

Salu2