VBA για εκτέλεση διαφόρων μακροεντολών όταν κάνετε κλικ σε διαφορετικά κελιά στο Excel

Καλή μέρα

Έχω συναντήσει κώδικα VBA που λειτουργεί πολύ καλά για να ενεργοποιήσει μια μακροεντολή στο Excel όταν κάνετε κλικ σε ένα συγκεκριμένο κελί. Δες παρακάτω:


Επιλογή ρητή

Ιδιωτικό δευτερεύον φύλλο εργασίας_SelectionChange(Στόχος ByVal ως εύρος)
Αν Selection.Count = 1 Τότε
If Not Intersect(Target, Range("D4")) Is Nothing then
Καλέστε το MyMacro
End If
End If
Sub End


Προσπαθώ να προσθέσω άλλα 3 τέτοια σενάρια στον ίδιο κώδικα, αλλά δεν έχω εμπειρία με την κωδικοποίηση, οπότε η αντιμετώπιση προβλημάτων δεν με έχει οδηγήσει πουθενά. Δείτε παρακάτω παράδειγμα του τι προσπαθώ να κάνω και διορθώστε τον κωδικό αν είναι δυνατόν:


Επιλογή ρητή

Ιδιωτικό δευτερεύον φύλλο εργασίας_SelectionChange(Στόχος ByVal ως εύρος)
Αν Selection.Count = 1 Τότε
If Not Intersect(Target, Range("D4")) Is Nothing then
Καλέστε το MyMacro1
End If
End If
Αν Selection.Count = 1 Τότε
If Not Intersect(Target, Range("E10")) Is Nothing then
Καλέστε το MyMacro2
End If
End If
Αν Selection.Count = 1 Τότε
If Not Intersect(Target, Range("G23")) Is Nothing then
Καλέστε το MyMacro3
End If
End If
Αν Selection.Count = 1 Τότε
If Not Intersect(Target, Range("J33")) Is Nothing then
Καλέστε το MyMacro4
End If
End If
Sub End



Περίμενα ότι οι διάφορες μακροεντολές που δημιούργησα (που λειτουργούν καλά) θα εκτελούνταν αυτόματα όταν έκαναν κλικ στα κελιά που σημειώθηκαν στον κώδικα


Οποιαδήποτε βοήθεια θα εκτιμηθεί ιδιαίτερα!