Hi Frank

You can use a macro to create the links if you want

This macro for column A

Sub test()
For Each myCell In Columns("A").Cells.SpecialCells(xlCellTypeConstant s)
If myCell.Value Like "?*@?*.?*" Then
ActiveSheet.Hyperlinks.Add Anchor:=myCell, _
Address:="mailto:" & myCell.Value, TextToDisplay:=myCell.Value
End If
Next
End Sub





--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Frank Wood" <Frank wrote in message ...
Hello, I have a database of email addresses hyperlinks, that a department
needs to do an advanced filter (extract) on so they can copy the data to a
new file to be emailed out. However when you extract the data using the
advanced filter, the extracted data is no longer hyperlinked to the email
address.

Ordinarily i would just use Hyperlink(extractedcolumn) to fix this, but I
wanted a more automated solution since the data needs to be copied to a new
workbook (book1, book2, etc) so they can save the new file with a new name.

Thanks in advance for any suggestions!

ITD3