VBA для запуску різних макросів під час натискання різних клітинок у Excel

Добрий день

Я натрапив на код VBA, який справді добре запускає макрос у Excel під час натискання певної клітинки. Дивись нижче:


Варіант явний

Приватний додатковий аркуш_SelectionChange(ByVal Target As Range)
Якщо Selection.Count = 1 Тоді
Якщо не перетинається(ціль, діапазон("D4")) то нічого
Зателефонуйте в MyMacro
End If
End If
End Sub


Я намагаюся додати ще 3 таких сценарії до того самого коду, але у мене немає досвіду кодування, тому усунення несправностей мене нікуди не привело. Перегляньте наведений нижче приклад того, що я намагаюся зробити, і, якщо можливо, виправте код:


Варіант явний

Приватний додатковий аркуш_SelectionChange(ByVal Target As Range)
Якщо Selection.Count = 1 Тоді
Якщо не перетинається(ціль, діапазон("D4")) то нічого
Виклик MyMacro1
End If
End If
Якщо Selection.Count = 1 Тоді
Якщо Not Intersect(Target, Range("E10")) нічого не означає
Виклик MyMacro2
End If
End If
Якщо Selection.Count = 1 Тоді
Якщо Not Intersect(Target, Range("G23")) це ніщо
Виклик MyMacro3
End If
End If
Якщо Selection.Count = 1 Тоді
Якщо Not Intersect(Target, Range("J33")) це ніщо
Виклик MyMacro4
End If
End If
End Sub



Я очікував, що різноманітні створені мною макроси (які добре працюють) запускатимуться автоматично, коли клацатимуть клітинки, зазначені в коді


Будь-яка допомога буде дуже вдячна!