Using the contents of a cell to hyperlink another

I have a large index of parts. In column A I have the Part Name, and in Column H I have a location where its information can be found. I would like to write a macro that would copy the contents in Column H as the hyperlink address for Column A for the entire file.

I have been reading and trying and tutorialing but just can't get it. Searches have also come up just a bit shy of useful information.

Thanks for any suggestions!

Steven

Make a copy of your workbook and test the code on your copy. Within a dummy workbook, I successfully passed the link contained within Column H to the text in Column A (Column A went from being text to a hyperlink of the location specified in Column H). Let me know.

Sub CreateLinks()

Dim ws         As Worksheet
Dim rngCell    As Range
Dim rngSource  As Range
Dim rngDest    As Range
Dim strLink    As String

   With Application
      .ScreenUpdating = False
      .EnableEvents = False
   End With

      Set ws = ActiveWorkbook.Sheets("Sheet1") ' Modify as applicable
         
      With ws
         lngLastRow = .Cells(.Rows.Count, "H").End(xlUp).Row
      End With
      
      Set rngSource = Range("H1", "H" & lngLastRow)

         For Each rngCell In rngSource
            strLink = CStr(rngCell.Value)
            Set rngDest = Range("A" & rngCell.Row)
            rngDest.Hyperlinks.Add Anchor:=rngDest, Address:=strLink
         Next

   With Application
      .ScreenUpdating = True
      .EnableEvents = True
   End With

End Sub

Glad I could help. Please remember to mark your thread as solved.

How to mark a thread solved

Could you not just use the HYPERLINK function?