Copying hyperlink / URL

[MichalDeu]

Dear All,

I have a database of equipment in excell. One of the column has hyperlinks to websites of specific equipment. The hyperlink is given as "View details". I need to transform it into a simple URL like http:....etc.

Kind regards
MD

 

[wideboydixon]

And do you want to keep the hyperlink or just put the URL in the column with no link? Delete from this code as appropriate:

Public Sub SimplifyHyperlinks()

Dim h As Hyperlink

' This will maintain the hyperlinks but replace "View Details" with the hyperlink address
For Each h In ActiveSheet.Hyperlinks
    h.TextToDisplay = h.Address
Next h

' This will remove the hyperlink and put the hyperlink address in the cell
For Each h In ActiveSheet.Hyperlinks
    h.Parent.Value = h.Address
    h.Delete
Next h

End Sub

Use a copy of your sheet for testing!!

WBD

 

[MichalDeu]

Thanks a lot works great!