Can not get Found to respond. Object: Get PersonName in Sheet2, Go to
Sheet1, Find PersonName. If Found put PersonName & address into Sheet2
Else put PersonName in Sheet3. Sheet2 has no address. Sheet1 has most,
but not all names that are in Sheet2

Tried:
Set Found = Nothing
Set Found = Cells.Find(PersonName)
.
Cells.Find(What:=PersonName.....
If Found Nothing Then ..

Thanks again for all your help,
Gordon