Yes, this gets me closer, but not yet there.

It is important to add
Dim fc As Range 'since fc is actually a cell in the target sheet.

Let me explain what I am trying to do.
Running down the rows of Sheet1 where column  A has the employee name
or a blank (vEmployee), if not blank then I switch focus to Sheet2 and
.Find against Column D where .value = vEmployee. When these match, I
want to pick up the .value in the matching  cell, copy it to the
original source cell and pick up the .value of (Offset, 1) for the
found cell and copy it to source cell (Offset, 26).

This corrects the employee name when there is a minor variance like a
middle initial not used, and inserts the manager's name. Next, I do a
second look up against the manager's list on Sheet3 to match  the
manager to get his/her email address.

Find definitely works, but I keep getting minor errors or I'm not
pointing to the right column or sheet. Any help on how to code this
will be appreciated. When I have the working code, I will post it.