Hyperlinks are removed or refer to wrong address after you sort them in Excel

RESOLUTION

If this problem occurs, manually correct the hyperlinks. To do this, do either of the following:

• If Microsoft Excel has removed the hyperlink from the cell, select the cell and click Hyperlink on the Insert menu. Enter the correct address in the Link To File Or URL box, and then click OK. -or-
• If the hyperlink refers to the wrong address, right-click or press CONTROL and click the cell, point to Hyperlink on the shortcut menu, and then click Edit Hyperlink. Correct the address in the Link To File Or URL box and click OK.

If you need to fix a list of e-mail addresses, highlight the list of addresses, and then run the following macro.

Sub test()
  Dim cell As Range
  For Each cell In Selection
    If InStr(1, cell.Value, "@") > 0 Then
    ActiveSheet.Hyperlinks.Add cell, "mailto:" & cell.Value, cell.Value
    End If
  Next
End Sub