Excel VBA: ejecute la macro si se hace clic y se selecciona la celda en el rango

Question

Necesito una rutina que pueda identificar si se hizo clic en una celda en un rango y luego ejecutar una macro. Ya lo tengo solucionado en parte.

Mi problema es: necesito alternar un valor cada vez que se hace clic en la celda, no cada vez que se selecciona la celda, por lo que

Private Sub Worksheet_SelectionChange(ByVal Target As Range)    

If Not Intersect(Target, Range(testRange) Is Nothing Then
   'Cell was Clicked
End If

End Sub

solo me funciona mientras la celda no esté seleccionada.

¿Qué puedo hacer? ¿Existe alguna función para verificar si se realizó un clic del mouse y se seleccionó la celda?

Answer 1

Digamos que queremos ejecutar una macro llamada Hello()cuando la celdaB9se hace clic.

Primero seleccioneB9e inserte un hipervínculo aB9.

(al hacer clic en esto en realidad no salta a ninguna parte)

Luego, en el área de código de la hoja de trabajo, inserte:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Call Hello
End Sub