Desplazarse por un rango seleccionado detectando el cambio de celda

.

Hola:

Este es uno de esos aportes que no se van a utilizar en la vida, se trata de detectar el cambio de celda activa al desplazarse por un rango seleccionado usando las teclas flecha (Up, Down, Left, Right) sin perder la selección del rango.

Todos deberíamos saber que es posible desplazarse por un rango sin perder la selección usando las teclas

• Tab
  
  
• Shift+Tab
  
  
• Enter
  
  
• Shift+Enter
  
  

digo deberíamos porque yo no lo sabía hasta hace un par de días.

Lo que ya es mas complicado es detectar el cambio de la celda activa porqué no se activa el evento Worksheet_SelectionChange.

En otro foro pidieron esa posibilidad, además usando las teclas de flecha en lugar de las habituales.

Lo he solucionado con Application.OnKey.

A partir de ahí se genera un pseudoevento Worksheet_ActivecellChange, espero que os guste.

Saludos.

.

Desplazarse por un rango.xls