Read/Retrieve/locate data between different excel sheet using macro/vba

AlphaFrog,

Really thanks for your help.

But, I have an error on this code:

Set FoundEmail = Sheets("Email").Range("A:A").Find(What:=Cells(Target.Row, 3), _
LookAt:=xlWhole, _
MatchCase:=False)


The Email list on sheet 2 is somehow act as a database. this is to prevent the user to manually change the email all the time. Jus enter the name, it locate the email and send out automatically.