how can i apply hyperlink format to a cell?

[edpruiz]

In a userfor I generated hyperlinks and then send them to a data base, but when it´s copied into the database, the content of the cell doesn´t have a hyperlink format

I tried the following commands, but when inserting a new hyperlink it takes the format but is not active

I have to reapply the macro to make it work, and so individually every time I add a new hyperlink
Sub HyperAdd()
'Converts each text hyperlink selected into a working hyperlink

Dim xCell As Range

For Each xCell In Selection
ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula
Next xCell
End Sub


I would appreciate if you could help me find a way to make the hyperlink format permanent.