Activado Método Abreviado
A la hora de Abrir nuestro fichero asignaremos el Método Abreviado a las Rutinas que queramos ejecutar con dicho método.
Sub Auto_Open()
Application.OnKey "^{Letra del Teclado}", "Nombre de la Rutina"
End Sub
Restaurar Método Abreviado
Antes de salir volveremos a restaurar el Método Abreviado con el siguiente código
Sub Auto_Close()
Application.OnKey "^{Letra del Teclado}"
End Sub