'Copying hyperlinks in a column

I want to use Ron de Bruin's rng to HTML code with my HTML.

I tried solutions I have seen here and other websites.

When I copy my hyperlink I lose a portion of the address.

In Excel this is the address:

"https://rocketsutoledo.sharepoint.com/sites/pwa/Project%20Detail%20Pages/Schedule.aspx?ProjUid= & {profIDvariable}"

In an Outlook email it snips the first part of that address:

"http://../pwa/Project%20Detail%20Pages/Schedule.aspx?ProjUid=ceda14cb-f20c-ec11-a1a7-00155df91817"

How I create the hyperlinks for Excel:

With Worksheets("EmailDataOutput")
    .Hyperlinks.Add Anchor:=.Range("h" & outputrow), _
       Address:="https://rocketsutoledo.sharepoint.com/sites/pwa/Project%20Detail%20Pages/Schedule.aspx?ProjUid=" & projid, _
       ScreenTip:="Link to Project", _
       TextToDisplay:="Project Schedule"
End With

A solution I tried:

For Each HyperL In rng.Hyperlinks
    TempWB.Sheets(1).Hyperlinks.Add _
      Anchor:=TempWB.Sheets(1).Range(HyperL.Range.Address), _
      Address:=HyperL.Address, _
      TextToDisplay:=HyperL.TextToDisplay
Next HyperL

vba hyperlink

Sources

This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.

Source: Stack Overflow

Solution	Source

'Copying hyperlinks in a column

Sources

Related Questions