Jerry,

You have "sFind" in your code twice. The second time it is assigning the value in cell A1 (which is just the number, not the text). Does your message box display the correct name? If so, simply delete this line from your code:

sFind = ThisWorkbook.Sheets("Home").Range("A1").Value

Ben