[VBA] problem

[ΔΗΜΗΤΡΙΟΣ]

Θέλω από το φύλλο <ΟΛΑ> να διαβάζει τα επώνυμα της στήλη Β και να κάνει το εξής:
Να ψάχνει στα φύλλα B1 ,B2 ,B3 ,B4 και όταν βρεί ίδιο επώνυμο με αυτό της στήλης Β του φύλλου <ΟΛΑ> να πηγαίνει στην στήλη G του φύλλου <ΟΛΑ> και να γράφει το όνομα του φύλλου που βρέθηκε το επώνυμο αυτό.
Αν πχ ψάχνουμε τον Βλαστό και ο Βλαστός βρεθεί στο φύλλο Β1 τότε στο αντίστοιχο κελί της στήλης G του φύλλου <ΟΛΑ> να γραφει Β1 κτλ
Εχω κώδικα μέσα αλλά δεν ξέρω τι δεν κάνω σωστά.'

ΥΓ

Τα B1 ,B2 ,B3 ,B4 είναι αγγλική γραφή.

Ευχαριστώ πολύ !