VBA pro spouštění různých maker při kliknutí na různé buňky v Excelu

Dobrý den

Narazil jsem na kód VBA, který opravdu dobře funguje pro spuštění makra v Excelu při kliknutí na konkrétní buňku. Viz. níže:


Možnost explicitní

Private Sub Worksheet_SelectionChange (ByVal Target As Range)
If Selection.Count = 1 Then
If Not Intersect(Target, Range("D4")) is Nothing Then
Zavolejte MyMacro
End If
End If
End Sub


Snažím se přidat 3 další takové scénáře do stejného kódu, ale nemám žádné zkušenosti s kódováním, takže řešení problémů mě nikam nedostalo. Podívejte se prosím níže na příklad toho, co se snažím udělat, a pokud je to možné, opravte kód:


Možnost explicitní

Private Sub Worksheet_SelectionChange (ByVal Target As Range)
If Selection.Count = 1 Then
If Not Intersect(Target, Range("D4")) is Nothing Then
Zavolejte MyMacro1
End If
End If
If Selection.Count = 1 Then
If Not Intersect(Target, Range("E10")) Is Nothing Then
Zavolejte MyMacro2
End If
End If
If Selection.Count = 1 Then
If Not Intersect(Target, Range("G23")) Is Nothing Then
Zavolejte MyMacro3
End If
End If
If Selection.Count = 1 Then
If Not Intersect(Target, Range("J33")) Is Nothing Then
Zavolejte MyMacro4
End If
End If
End Sub



Očekával jsem, že různá makra, která jsem vytvořil (která fungují dobře), se automaticky spustí, když se klikne na buňky uvedené v kódu


Jakákoli pomoc bude velmi oceněna!