VBA para executar várias macros ao clicar em diferentes células no Excel

Bom dia

Encontrei um código VBA que funciona muito bem para acionar uma macro no Excel ao clicar em uma célula específica. Veja abaixo:


Opção explícita

Sub Worksheet_SelectionChange particular (destino ByVal como intervalo)
Se Seleção.Contagem = 1 Então
If Not Intersect(Target, Range("D4")) Não é Nada Então
Chamar MyMacro
Se acabar
Se acabar
End Sub


Estou tentando adicionar mais 3 desses cenários ao mesmo código, mas não tenho experiência com codificação, então a solução de problemas não me levou a lugar nenhum. Veja abaixo o exemplo do que estou tentando fazer e corrija o código, se possível:


Opção explícita

Sub Worksheet_SelectionChange particular (destino ByVal como intervalo)
Se Seleção.Contagem = 1 Então
If Not Intersect(Target, Range("D4")) Não é Nada Então
Chamar MinhaMacro1
Se acabar
Se acabar
Se Seleção.Contagem = 1 Então
Se não houver interseção (alvo, intervalo("E10")) não é nada, então
Chamar MinhaMacro2
Se acabar
Se acabar
Se Seleção.Contagem = 1 Então
Se não houver interseção(Target, Range("G23")) não é nada, então
Chamar MinhaMacro3
Se acabar
Se acabar
Se Seleção.Contagem = 1 Então
Se não houver interseção (alvo, intervalo("J33")) não é nada, então
Chamar MinhaMacro4
Se acabar
Se acabar
End Sub



Eu esperava que as várias macros que criei (que funcionam bem) fossem executadas automaticamente quando as células anotadas no código fossem clicadas


Qualquer assistência será muito apreciada!