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.
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.