you need to test the value of the cell as excel may have automatically converted an email address to a hyperlink
vb Code:
  1. msgbox cells(x, y)
  2. msgbox cells(x, y).text
  3. msgbox cells(x, y).hyperlinks(1).texttodisplay