VBA do uruchamiania różnych makr po kliknięciu różnych komórek w programie Excel

Dzień dobry

Natknąłem się na kod VBA, który działa naprawdę dobrze, uruchamiając makro w Excelu po kliknięciu określonej komórki. Zobacz poniżej:


Opcja Jawna

Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Jeśli Selection.Count = 1 Wtedy
Jeśli nie przecina (cel, zakres ("D4")) to nic, wtedy
Zadzwoń do MojeMakro
End If
End If
End Sub


Próbuję dodać jeszcze 3 takie scenariusze do tego samego kodu, ale nie mam doświadczenia z kodowaniem, więc rozwiązywanie problemów nigdzie mnie nie zaprowadziło. Zobacz poniższy przykład tego, co próbuję zrobić, i popraw kod, jeśli to możliwe:


Opcja Jawna

Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Jeśli Selection.Count = 1 Wtedy
Jeśli nie przecina (cel, zakres ("D4")) to nic, wtedy
Zadzwoń do MyMacro1
End If
End If
Jeśli Selection.Count = 1 Wtedy
If Not Intersect(Target, Range("E10")) To nic wtedy
Zadzwoń do MyMacro2
End If
End If
Jeśli Selection.Count = 1 Wtedy
If Not Intersect(Target, Range("G23")) To nic wtedy
Zadzwoń do MyMacro3
End If
End If
Jeśli Selection.Count = 1 Wtedy
If Not Intersect(Target, Range("J33")) To nic wtedy
Zadzwoń do MyMacro4
End If
End If
End Sub



Spodziewałem się, że różne utworzone przeze mnie makra (które działają dobrze) będą automatycznie uruchamiane po kliknięciu komórek zaznaczonych w kodzie


Każda pomoc będzie bardzo mile widziana!