VBA para ejecutar varias macros al hacer clic en diferentes celdas en Excel

Buenos días

Me encontré con un código VBA que funciona muy bien para activar una macro en Excel al hacer clic en una celda específica. Vea abajo:


Opción explícita

Sub hoja de trabajo privada_Cambio de selección (rango de destino ByVal)
Si Selection.Count = 1 Entonces
Si no intersecta (objetivo, rango ("D4")) no es nada, entonces
Llamar a MiMacro
Si terminar
Si terminar
End Sub


Estoy tratando de agregar 3 escenarios más al mismo código, pero no tengo experiencia con la codificación, por lo que la solución de problemas no me ha llevado a ninguna parte. Vea a continuación el ejemplo de lo que estoy tratando de hacer y corrija el código si es posible:


Opción explícita

Sub hoja de trabajo privada_Cambio de selección (rango de destino ByVal)
Si Selection.Count = 1 Entonces
Si no intersecta (objetivo, rango ("D4")) no es nada, entonces
Llamar a MiMacro1
Si terminar
Si terminar
Si Selection.Count = 1 Entonces
Si no intersecta (objetivo, rango ("E10")) no es nada, entonces
Llamar a MiMacro2
Si terminar
Si terminar
Si Selection.Count = 1 Entonces
Si no intersecta (objetivo, rango ("G23")) no es nada, entonces
Llamar a MiMacro3
Si terminar
Si terminar
Si Selection.Count = 1 Entonces
Si no intersecta (objetivo, rango ("J33")) no es nada, entonces
Llamar a MiMacro4
Si terminar
Si terminar
End Sub



Esperaba que las diversas macros que creé (que funcionan bien) se ejecutaran automáticamente cuando se hiciera clic en las celdas anotadas en el código


¡Cualquier ayuda será muy apreciada!